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TEACHING FORTH 



8080/Z80 FIG-FORTH for CP/M A CD08 systems 
FULL-SCREEN EDITOR for DISK & MEMORY 

$50 saves you keying the FIG FORTH model and many published FIG FORTH screens onto diskette and 
debugging them. You receive TWO diskettes (see below for formats available). The first disk is readable by 
Digital Research CP/M or Cromemco CDOS and contains 8080 source I keyed from the published listings of 
the FORTH INTEREST GROUP (FIG) plus a translated, enhanced version in ZILOG Z80 mnemonics. This 
disk also contains executable F0RTH.COM files for Z80 & 8080 processors and a special one for Cromemco 
3102 terminals. 

The 2nd disk contains FORTH readable screens including an extensive FULL-SCREEN EDITOR FOR 
DISK & MEMORY. This editor is a powerful FORTH software development tool featuring detailed terminal 
profile descriptions with full cursor function, full and partial LINE-HOLD LINE-REPLACE and LINE- 
OVERLAY functions plus line insert/delete, character insert/delete, HEX character display/update and 
drive-track-sector display. The EDITOR may also be used to VIEW AND MODIFY MEMORY (a feature not 
available on any other full screen editor we know of.) This disk also has formatted memory and I/O portdump 
words and many items published in FORTH DIMENSIONS, including a FORTH TRACE utility, a model data 
base handler, an 8080 ASSEMBLER and a recursive decompiler. 

The disks are packaged in a ring binder along with a complete listing of the FULL-SCREEN EDITOR and a 
copy of the FIG-FORTH INSTALLATION MANUAL (the language model of FIG-FORTH, a complete glossary, 
memory map, installation instructions and the FIG line editor listing and instructions). 

This entire work is placed in the public domain in the manner and spirit of the work upon which it is based. 
Copies may be distributed when proper notices are included. 

USA Foreign 

□ FIG-FORTH & Full Screen EDITOR package AIR 

Minimum system requirements: 

80x24 video screen w/ cursor addressability 

8080 or Z80 or compatible cpu 

CP/M or compatible operating system w/ 32K or more user RAM 

Select disk format below, (soft sectored only) $50 $65 

□ 8" SSSD for CP/M (Single Side, Single Density) 

Cromemco CDOS formats, Single Side, S/D Density 

□ 8" SSSD □ 8" SSDD □ SVa" SSSD □ SVa" SSDD 

Cromemco CDOS formats. Double Side, S/D Density 

□ 8" DSSD □ 8" DSDD □ 5%" DSSD □ 5Va" DSDD 

Other formats are being considered, tell us your needs. 

□ Printed Z80 Assembly listing w/ xref (Zilog mnemonics) $15 $18 

□ Printed 8080 Assembly listing $15 $18 

TOTAL $ 

Price includes postage. No purchase orders without check. Arizona residents add sales tax. Make check 
or money order in US Funds on US bank, payable to: 

Dennis Wilson c/o 
Aristotelian Logicians 
2631 East Pinchot Avenue 
Phoenix, AZ 85016 
(602) 956-7678 
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Letters •••• 

Yes on Operating Systems 

Dear FIG, 

On the subject of operating systems 
and FORTH, I must admit that I 
much prefer Dr. Delwood's or Mr. 
Arkley's approach of using the operat- 
ing system that you are currently run- 
ning in, rather than creating an entire 
new one in FORTH. They are right- 
operating systems are designed to 
manipulate files; let them! This solves 
several problems that have arisen in 
that FORTH would no longer need to 
have an entire and separate disk all to 
itself, nor would it necessarily be cut 
off from the wealth of utilities that 
have been developed in almost any 
operating system. Why should the user 
have to worry about (and remember!) 
which screens contain which things. 
Everyone I know has a sequence of 
blocks off somewhere that are set 
aside for a listing and description of 
what is where on this disk. What is the 
difference between having to list that 
block and just typing "DIR" or 
* 'CATALOG?" 

This is already being done to some 
extent. There are versions of FORTH 
that set aside a file under CP/M that 
contains all the screens, thus allowing 
FORTH to co-exist on a standard 
CP/M disk (though not to interact 
with other things on that disk), ver- 
sions of FORTH that contain screens 
for saving and retrieving files under 
the operating system of that particular 
machine, etc. 

The lack of a block-oriented file is, 
in my opinion, not a big problem. The 
standard block structure is nice for 
many things, but a real pain for 
others. There is no reason that it could 
not co-exist peacefully with the oper- 
ating system's file structure. Then you 
could use whichever one best suited 
your needs at the time. Applications 
are created as standard DOS files, 
which are read into a buffer area for 
editing. One of the primary benefits of 
this is that you are not limited to an 
artificial IK range for a definition, so 
you can spread it out as much as you 
like, indenting and commenting to 
your heart's content. The resulting 
readability lays to rest forever the 
argument that FORTH code is un- 
readable to the uninitiated. This buff- 



er is flexible and moveable, starting 
above the dictionary (like PAD), and 
ending just below DOS itself (or wher- 
ever you tell it to end). 

In William Graves' FORTH II for 
the Apple II, programs are saved 
through DOS with the command 
DWRITE and returned to the buffer 
with the command DREAD. You com- 
pile an application with the command 
LOAD (nothing on the stack), which 
LOADs the entire buffer. Alternately, 
you can load directly from the disk 
with the command DLOAD. Standard 
DOS commands are prefaced with the 
word DOS: (i.e. DOS: CATALOG). 
What could be simpler? You can insert 
a file into another file, thus allowing 
you to save small files of standard ap- 
plications (as you now do screens) that 
would be useful in many programs, or 
you can DLOAD a file directly from 
another file (a file can even DLOAD 
itself!?!). 

These structures do not sully or 
defile FORTH, or turn it into some- 
thing it Was Never Meant To Be. 
Rather, these file systems are just 
another example of the tremendous 
versatility and extensibility of 
FORTH. 

I think it would not be out of line 
for the Standards Committee to look 
into adding words Uke those above to 
a future release of FORTH, not as a 
replacement to blocks, but as an alter- 
native. It would make FORTH very 
Uttle less dependent than it now is— 
just as certain words (KEY, EMIT, 
7TERMINAL, etc.) must change from 
installation to installation, so to would 
these words need to change. 

FORTH will never really gain ac- 
ceptance in the Real World if you have 
to tell people they have a choice: they 
can either use FORTH with their hard 
disk, or everything else in the world. 

Please keep up the excellent work! 
The only complaint I have is that 
FORTH Dimensions comes out far 
too infrequently to suit me! 

Nick Francesco 
Rochester, New York 

While I personally prefer "native 
FORTH" directly controlling disk and 
other systems, I agree that running un- 
der an operating system can be useful. 
I definitely agree to the need for stan- 
dardization, but this is unlikely to 
come from the Standards Team for a 
good long while. Just to clear up what 



sounds misleading, a FORTH that 
runs as its own operating system does 
not run in some other operating sys- 
tem, it replaces it. Similarly it doesn't 
need "an entire and separate disk all 
to itself " —Editor 



More! 

Dear FIG, 

After having received volume IV of 
FORTH Dimensions we would like to 
purchase the three previous volumes. 
This is an excellent publication! 

Richard Beers 
Alpha Computer Services 
Virgin Islands 



No Point In Fixed Thinking 

Dear FIG, 

There exists a hardware trend which 
is possibly making the "Philosophy of 
Fixed Point" obsolete. 

I recently purchased from FORTH, 
Inc.; Polyforth 2 with 8087 support 
for my IBM PC. Polyforth uses the 
8087 register stack as an extra FORTH 
stack. I beUeve that this efficient use 
of the 8087 architecture makes 
FORTH an unbeatable number 

Continued 
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Letters ... (Continued) 



cruncher. Consider the following ex- 
ecution times that I measured. 

SWAP 23 microsec. 

m 47 microsec. 

FSWAP 14 microsec 

F « 24 microsec 
The floating point numbers are 64 
bit (80 internal to the 8087). Besides 
being fast, by storing floating point 
numbers on a stack that is separate 
from the stack on which integers are 
stored, a major programming incon- 
venience is avoided, i.e. there are no 
operations between the two numerical 
types so putting both on the same 
stack requires excessive stack 
manipulation. 

Clearly, in view of the above results, 
a fixed point philosophy is already 
completely inappropriate with an 8087 
equipped machine. Now the question 
arises whether in ten years or so most 
microcomputers will be equipped with 
similar numeric processors. If so, and 
no floating point FORTH standards 
are in vogue at that time, FORTH will 
remain an unpopular number crunch- 
ing language in spite of its potential 
superiority in this regard. I therefore 
recommend that you fixed point phi- 
losophers revise your thinking. 

Steven A. Ruzinsky 
Cicero, Illinois 



Potpourri 

Dear FIG, 

First off, I must compliment Leo 
Brodie on his superb QTF application 
(IV/3 and IV/4) upon which I am 
composing this! ! ! Those new members 

Renew 
Your 
Subscription 
To 
FORTH 
Dimensions ! 

Use The 
Envelope ! 



who haven't got those back issues and 
don't possess a word processor must 
find them. . .Your life may depend on 
it if you ever have to write anything 
someday. The week it took to translate 
Brodie's code into FORTH-77 for my 
homebrew word-addressing machine 
was damn well worth it! 

Don Colburn's letter (IV/4) was ex- 
cellent. One thing he missed, tho. As I 
have pointed out in Guy Kelly's group 
(The San Diego FIG Chapter), people 
who promulgate "standards" should 
call them ''alleged standards," as in 
"IEEE-488 Alleged Standard." The 
existence of FORTH standards, ala 
FORTH-79 or FORTH-83 does not 
necessarily mean compatibility. That 
would be nice, but it doesn't stand up 
in the real world. As EFUG pointed 
out to the Standards Committee, peo- 
ple do (but apparently not in the U.S.) 
implement FORTH on other than 
machines that address 8-bit bytes. A 
casual glance at FORTH-79 or the 
draft FORTH-83, however, shows 
that a "Standard System" is effective- 
ly impossible on a machine that has 
other than 8-bit addressing granular- 
ity! The FORTH community must 
realize that "standards" should serve 
primarily as a medium of exchange. 
The very nature of FORTH and its 
applications dictate this. This has 
always been a sore point with me. 
When I was exposed to FORTH ini- 
tially, it was a word-addressing sys- 
tem. I liked it better that way. 

Laxen's article on choosing names 
. . . Both he and Brodie missed an im- 
portant point. This is especially true if 
you look at the source for the QTF 
Editor where flags are being set and 
cleared all over the place. Beyond: 

1 CONSTANT T(RUE) 
CONSTANT F(ALSE) 

They missed: 

: ON T SWAP ! ; 
: OFF F SWAP ! ; 

Which gives: 

: ESCAPE ?ESC ON ; 

Which makes much more sense than: 
: ESCAPE T ?ESC ! ; 

Early in 1982 I needed a microas- 
sembler for a project at work. Not 



having seen Mr. Cholmondeley's work 
(III/4), I repeated a lot of it. My ex- 
perience, however, indicates that a 
FORTH-based microassembler is the 
only thing that makes sense for this 
sort of work if you haven't got AMD's 
System 29 or such. I had to write 
about 256 x 40 of microcode and had 
access to a Z-80 CP/M system and 
8080 fig-FORTH. Despite some has- 
sels over having to say SMUDGE after 
CREATE, I was able to produce as- 
sembly listings and PROM dumps in 
Intellec format for the PROM blaster 
in about 24 hours work— which in- 
cluded coding up the microassembler 
from scratch! The performance 
brought frowns of dismay from the 
PASCAL- and C-freaks around the 
shop. 

Glenn A, Toennes 
DECOM Systems, Inc. 
San Marcos, California 

Thanks for your thoughts. Regard- 
ing the flag setting words, Laxen spec- 
ifically recommended your proposed 
definitions in his article, except he 
called them SET and RESET. As for 
me, in this particular application I 
find T ?ESC ! to be quite readable, 
and also more sy metric with ?ESC @. 
The real problem is FORTH's use of 
@ and !. —Editor 



Kansas Canvass 

Dear FIG, 

I would like to locate some FIG 
members in the Eastern Kansas area. 
According to your FIG chapter listing 
from Vol. IV, No. 4 there is only one 
chapter in Kansas and it is a special in- 
terest group (Nova Group). If you 
would publish this letter maybe a few 
members in my area would like to start 
a chapter. It sure would be nice to talk 
with someone else interested in 
FORTH. As far as I know I'm the 
only FIG member east of Wichita. 

Also Vol. IV, No. 4 was quite inter- 
esting. I received the issue just as I was 
developing a piece of telecommunica- 
tions test gear in my job. Some of the 
ideas will save me at least 2K of ROM 
space. Keep up the good work. 

EJ. McKernan IV 
Datalog 
Emporia, Kansas 
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FORTH as a Teaching Language 



Albert S. Woodhull, Ph,D, 
Hampshire College 
Amherst, Massachusetts 01002 



At Hampshire College we take a 
pause between the regular semesters 
for a "January Term." During Janu- 
ary the expectation is that students 
and faculty will engage in intensive ac- 
tivities of the sort that are difficult to 
manage during the regular semester. 
This year, with help from my col- 
league Bill Marsh, I undertook to in- 
troduce a number of undergraduates 
to the FORTH language. I think 
FORTH has some features that could 
make it very useful as a teaching tool, 
but there are drawbacks as well. I will 
describe below the course and some of 
my conclusions regarding the pos- 
sibilities for FORTH as a teaching 
language. 

The course was called ''Building a 
Small Compiler," and was publicized 
as being about the techniques used in 
implementation of high level lan- 
guages. I proposed a goal of complet- 
ing, as a cooperative project, a cross- 
compiler to allow high level develop- 
ment of programs to be run on smaller 
systems. The description listed famil- 
iarity with at least one computer lan- 
guage as a prerequisite. 

A varied assortment of students ap- 
peared at the first class. The entry 
level programming courses at Hamp- 
shire have been taught in either APL 
or Pascal, and there was an expert pro- 
grammer with little experience in the 
other language representing each. 
There were also a student with con- 
siderable experience in several lan- 
guages, an intermediate Pascal stu- 
dent, and students who had learned 
FORTRAN and BASIC outside of 
Hampshire College. A few of the par- 
ticipants had some microcomputer as- 
sembly language experience; none had 
ever before used FORTH. 

I started out with an exploration of 
the techniques used by microcomputer 
implementations of BASIC and Pascal 



in scanning for keywords and parsing 
expressions. The initial assignments 
were simple exercises simulating these 
processes, which students were expec- 
ted to complete using the languages 
with which they were already most 
familiar. Individual presentations of 
solutions in each of these four lan- 
guages gave me a chance to evaluate 
the starting levels of the students and 
provided them all with practice in ex- 
plaining and translating algorithms. 

We moved on fairly quickly to an 
examination of various ways of repre- 
senting expressions, and the relation- 
ships between string and tree represen- 
tations. These equivalent representa- 
tions became a theme later, as I went 
into tracing the flow of control during 
program execution, but initially the 
goal was just to introduce postfix 
notation. At this point studerffs were 
assigned a few exercises to familiarize 
themselves with the systems available, 
three S-100 CP/M systems of different 
hardware configurations . An ex- 
panded version of 8080 fig-FORTH 
with a screen editor designed for stu- 
dent use was available. All students 
had Brodie*s Starting FORTH text, 
and after this orientation all showed 
themselves able to learn the language 
on their own, although some formal 
presentation of the control structures 
BEGIN . . . UNTIL and BEGIN . . . 
WHILE . . . REPEAT was necessary 
for those without Pascal experience. 

With the cross-compiler project as 
the focus I shifted the emphasis to- 
ward gaining an understanding of how 
FORTH works internally. For the less 
sophisticated students the necessary 
explanations of stacks and linked lists 
constituted an introduction to the 
general idea of data structures. It 
seemed to me there was a nice kind of 
symbiosis in the way the developing 
understanding of the linked list idea 
reinforced and was reinforced by the 
FORTH concept of vocabularies. I 
pushed this particularly, as one of the 
easier ways to a cross-compiling sys- 



tem is to change the order of the dic- 
tionary links. 

The last part of the month was de- 
voted mostly to investigation of how 
FORTH's inner interpreter worked. 
Exercises included writing, in 
FORTH, routines that could "decom- 
pile" the address lists into which 
FORTH definitions are compiled, and 
which could trace the flow of execu- 
tion of FORTH words. These exer- 
cises were aimed at development of an 
understanding of how the FORTH 
"virtual machine" works and of what 
would be required to implement a 
FORTH system on a new target 
machine. 

The three class weeks which con- 
stitute the January Term proved to be 
too short a time for carrying through 
on the cross-compiler project I orig- 
inally proposed. I knew this was likely 
to be the case even before the course 
began, but I was not displeased with 
what did develop. In particular, I 
found it very interesting to gain a per- 
spective on the usefulness of FORTH 
as an educational tool. 

I have taught assembly language 
programming before, and I appreciate 
assembly language from a teacher's 
point of view as much for its impor- 
tance in helping people to understand 
what the underlying machine is doing 
as for its usefulness in increasing speed 
or decreasing memory requirements. I 
think FORTH can serve a similar pur- 
pose in teaching computer scientists, 
but the goal can be reached more 
quickly, given that (as I find is usually 
true) the students already have done 
some high level programming, 
FORTH has some other educational 
advantages as well. Because it has a 
direct interpretation capability pro- 
gram modules can be debugged much 
more easily than in a "compile-only" 
language like Pascal. Yet FORTH is 
also a compiler and in a course for ad- 
vanced students such as I have de- 
scribed FORTH can be used to gain an 
insight into the compilation process it- 

Continued 
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FOR TRS-80 MODEL I OR III 
IBM PERSONAL COMPUTER 



The MMSFORTH 
System. 
Compare. 

• The speed, compactness and 
extensibility of the 
MMSFORTH total software 
environment, optimized for 
the popular IBM PC and TRS- 
80 Models 1 and 3. 

• An integrated system of 
sophisticated application pro- 
grams: word processing, data- 
base management, communi- 
cations, general ledger and 
more, all with powerful capa- 
bilities, surprising speed and 
ease of use. 

• With source code, for custom 
modifications by you or MMS. 

• The famous MMS support, in- 
cluding detailed manuals and 
examples, telephone tips, 
additional programs and 
inexpensive program updates, 
User Groups worldwide, the 
MMSFORTH Newsletter. 
Forth-related books, work- 
shops and professional 
consulting. 




Fmn 



A World Of 
Difference! 

• Personal licensing for TRS-80: 
$129.95 for MMSFORTH, or 
"3/4TH" User System with 
FORTHWRITE. DATA- 
HANDLER and FORTHCOM 
for $399.95. 

• Personal licensing for IBM 
PC: $249.95 for MMSFORTH, 
or enhanced "3/4TH" User 
System with FORTHWRITE, 
DATAHANDLER-PLUS and 
FORTHCOM for $549.95. 

• Corporate Site License Exten- 
sions from $1,000. 



If you^recognize the difference 
and want to profit from it. ask us 
or your dealer about the world 
of MMSFORTH. 



MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road. Natick, MA 01760 
(617)653-6136 
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self. With most high level languages 
the operation of the compiler or inter- 
preter are not accessible to the user, 
nor can one count on similar prin- 
ciples of operation in different im- 
plementations. In FORTH it is very 
easy to follow the transformations 
that take place after a new definition is 
entered from the keyboard. Rules 
about declaration of variables take on 
new meaning when they can be shown 
to be necessary for the proper com- 
pilation of definitions that refer to the 
variables . Comparisons with other 
languages, particularly Pascal, can be 
made that point up clearly which rules 
are necessary because of machine 
restraints (i.e., variable declaration 
before use) and which rules go beyond 
what the machine requires for the sake 
of imposing discipline on the pro- 
grammer (i.e., Pascal's requirement 
that all variables be declared at the 
beginning). 

FORTH has its problems as a teach- 
ing language, as well. Its extreme flexi- 
bility makes it possible to do almost 
anything desired in FORTH, but this 
can cause confusion. As an example, it 
seemed essential for my purposes to be 
able to define a word recursively, and 
it is rather easy to do this by toggling 
the smudge bit in a dictionary header 
at compile time. I found the use of the 
[ and J words, which allow for execu- 
tion while a definition is being com- 
piled, one of the most difficult things 
for students to grasp. Another feature 
of FORTH that seems to cause fre- 
quent errors is the difference in the be- 
havior of VARIABLE and CONSTANT 
words, which return in one case the 
address of the variable and in the 
other the value of the constant. 

My conclusions at this point are 
based on a very small sample of stu- 
dents in a specialized teaching situa- 
tion, but I am very much interested in 
the possibilities of a language like 
FORTH for use as a teaching tool. I 
think at this point I would not offer a 
FORTH course as an introduction to 
programming, but I might change my 
opinion on this point if I had available 
a good package of utility words that 
would make it easy for students to do 
extensive numerical computations. I 
am seriously considering offering a 
course in FORTH as a second com- 



puter language. Particularly at a lib- 
eral arts college like Hampshire I 
could see a course of this sort serving a 
valuable role for science and other stu- 
dents who want to go farther than just 
learning to program, but who stop 
short of becoming computer science 
majors. 

FORTH is above all a small system 
language, and teaching about com- 
puters has until now been based on 
large systems and the languages writ- 
ten for them. For example, as I men- 
tioned above, APL and Pascal have 
been used, through time-sharing on 
the University of Massachusetts 
CYBER, for almost all the introduc- 
tory language teaching at Hampshire 
College. The arrangements for this are 
under a great deal of strain, however. 
The microcomputer revolution has 
generated enormous pressure on the 
large system from students who want 
to learn about computers. As equip- 
ment becomes more affordable faculty 
members are obtaining their own com- 
puters for personal work and colleges 
are considering buying self-contained 
systems instead of buying or renting 
time-sharing terminals. 

Most experienced teachers of com- 
puter languages agree that the BASIC 
which comes with small computers is 
not a good language for teaching pro- 
gramming. Some languages, like 
APL, do not adapt well to the micro- 
computer. Pascal seems to be making 
the transition, and in fact next year the 
introductory Pascal course at Hamp- 
shire College will use a new microcom- 
puter laboratory across the hall from 
the old terminal room. Those of us 
who are familiar with the advantages 
of FORTH and its particular ability to 
make efficient use of limited machine 
resources ought to be giving some 
consideration to the question of how 
FORTH might fit into the college 
curriculum. Very little has been writ- 
ten on the use of FORTH as a teaching 
tool, and I would Uke to encourage 
others who have experience in teach- 
ing FORTH in undergraduate colleges 
to share their observations. 



Albert S. Woodhull, Ph,D, is an As- 
sistant Professor at the School of 
Natural Science, Hampshire College. 
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Forth Programming J\ids 

from Curry Associates 



Forth Programming Aids is 

a software package containing 
high-level FORTH routines that 
allow you to write more efficient 
programs in less development 
time. It is also useful for 
maintaining existing FORTH 
programs. The FPA package 
includes four modules: 



Forth Programming Aids 

enables you to: 

■ Minimize memory require- 
ments for target systems by 
finding only those words used 
in the target application. 

■ Tailor existing words (includ- 
ing nucleus words) to specific 
needs by decompiling the 
word to disk, editing, and 
recompiling. 

■ Build on previous work by 
extracting debugged FORTH 
routines (including constants 
and variables) from RAM to 
disk. 

■ Patch changes into existing 
compiled words in seconds. 

Forth Programming Aids 

comes with complete source 
code and a 50-page, indexed 
manual. 



TRANSLATOR provides a 
one-to-one translation of 
FORTH run-time code. 



CALLFINDER finds calling 
words, i.e. calls to a specific 
word. 



The DECOMPILER alone is 
worth a second look. This is a 
true decompiler which converts 
the FORTH words in RAM into 
compilable, structured FORTH 
source code, including program 



You can decompile one word, 
or a range of words at one 
time — even the whole FORTH 
system! This decompiled output 
may be sent by FPA options to 
the console, printer, or disk. 



DECOMPILER generates 
structured FORTH source code 
from RAM and inserts program 
control words {e.g., IF, ELSE). 

SUBROUTINE DECOMPILER 

finds called words, i.e., words 
called by a specific word, to all 
nesting levels. 



control words such as IF, ELSE, 
THEN, BEGIN, etc. If you ask 
FPA to DECOMPILE the nucleus 
word INTERPRET, you get the 
following output displayed on 
your terminal within 3 seconds: 



DECOMPILE is useful for look- 
ing up words, or for obtaining 
variations of words by decom- 
piling to disk, editing, and 
recompiling. 



( NFA2.:PFA: 4796 48 lU ) 
INTERPRET 

BEGIN -FIND 

IF STATE ;i) < 
IF CFA , 

ELSE CFA EXECUTE 

THEN 'l^STACK 
ELSE HERE NUMBER DPL ;i) 1 + 

IF CCDt'lPlLEJ DLITERAL 

ELSE DROP C COMPILE J LITERAL 

THEN 7STACK 
THEN 
AGAIN 5 



System Requirements: FORTH nucleus based on the fig-FORTH model or 79-STANDARD; a minimum 
of 3K bytes and a recommended 13K bytes of free dictionary space. 

For more information, call Ren Curry 415/322-1463 or Tom Wempe 408/378-2811 

Yes, send me a copy of Forth Programming Aids, including all source code and the 50-page manual. 

□ fig-FORTH model $1 50 Calif, residents add 6.5% tax. 

□ FORTH-79 STANDARD (specify system) $1 50 Foreign air shipments add $15. 

□ Manual alone (credit toward program purchase) $25 

□ Send more Information 

□ Master Charge □ Visa Account Number Exp. Date 

Name . ^ indicate disk format; 

Company 

Strfifit 

City/State/Zip 



□ 8" ss/sd fig-FORTH screens 
D 8" ss/sd CP/M"" 2.2 file 

□ Apple 3.3 

□ PC FORTH 

□ Other 



Send to: Curry Associates, P. O. Box 11324, Palo Alto, CA 94306 41 5/322-1463 or 408/378-2811 
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Teaching FORTH on a VAX 



by Vernor Vinge 
Department of Math Sciences 
San Diego State University 
San Diego, California 92182 



During the Fall semester of 1982, I 
taught an introduction to FORTH at 
San Diego State University. In this ar- 
ticle, I discuss the programming en- 
vironment I devised and the resulting 
course. 

The Hardware 

Ideally, FORTH should be taught 
to students who each have their own 
FORTH system on their own com- 
puter—all in communication with the 
instructor's system. This ideal will be 
achievable in the future, but for the 
moment any FORTH course at SDSU 
will have to run on (very crowded) 
University equipment. If the ideal is 
impossible, it might seem that the best 
alternative would be to supply the 
class with a lab of FORTH systems. 
At SDSU we have about 50 Apples for 
instructional labs, but there is no way 
for the instructor's system to com- 
municate with these machines. I re- 
garded such communication as espe- 
cially important in this course, since 
much of my software was untested. I 
decided to teach the course with the 
University's timesharing VAX. This 
machine communicates at 300 baud 
with terminals scattered across cam- 
pus. (It can also be reached by phone 
from off campus.) It supports many 
courses in all departments and at all 
levels. When used in compatibility 
mode, the VAX is a fast and accurate 
emulator of a PDP-11 running the 
RSX-11 operating system. This made 
it easy to install an instructional 
FORTH on it. 
The Software 

For several years 1 have been using 
John S. James' implementation of fig- 
FORTH [5] on a small LSI-11 system. 
The nucleus of this (public domain) 
system is written in MACRO-11 as- 
sembler language, and can be reas- 
sembled to run standalone, under 
RT-11, or under RSX-11. Reassem- 
bling the nucleus is easy, though the 



only modification I had made in the 
past was to vector the definitions of 
words like KEY, EMIT, QUIT, 
CREATE . . . 

Once the James system was in my 
VAX account it was easy to get it run- 
ning there. If every student's file con- 
tained a copy of the nucleus, then this 
version could be used for instruction. 
There would be inconveniences, how- 
ever: (1) the disk allocation for each 
student would be greater than is nor- 
mally given to students, (2) the fig- 
FORTH dialect is different from that 
of my text, (3) system modifications 
would be difficult for me to make 
during the semester. 

Therefore, I rewrote the nucleus to 
allow two sets of screens, one in a file 
called TEACHER.DAT and the other 
in STUDENT.DAT. TEACHER.DAT 
and the runnable nucleus, 
FORTH.EXE, reside in the 
instructor's account and can be read/ 
run by the students. Each student has 
his own STUDENT.DAT. The names 
of these files are invisible to users. 
Screens 1 through 70 are really 
TEACHER.DAT and screens 71 
through 140 are STUDENT.DAT. The 
system behaves like a standalone 
FORTH with two disk drives (but 
where one of the drives is read-only). 
By reassembling the nucleus, the 
instructor can change the 
characteristics of the system for every- 
one. By editing screens 1 through 70 
(TEACHER.DAT) the instructor can 
deliver announcements and software 
to the students. In particular, the in- 
structor can install a FORTH front 
end that will tailor the system to the 
dialect he wishes to teach. (My method 
of operation was a Uttle more compli- 
cated: I did almost all program 
development on an LSI-11 system and 
then used a terminal emulator to up- 
load debugged materials to TEACH- 
ER.DAT in my VAX account. This 
permitted me to use a screen editor 
and other fast-terminal tools. It also 
reduced the amount of time TEACH- 
ER.DAT was opened to the instructor; 
this was important during the semest- 
er, because the students are locked out 



of TEACHER.DAT when the 
instructor is messing around there.) 

I decided early on that I wanted to 
use Starting FORTH [1] as my text. 
Let me sing some praises: Of all the in- 
troductory FORTH books I've seen, 
Brodie's is the only one that gets all 
the way through CREATE - . . 
DOES> and the compiler words. The 
explanations and examples are extra- 
ordinarily clear. Differences between 
dialects are carefully noted. Brodie 
skillfully treads the line between say- 
ing too much and becoming imple- 
mentation specific, and not saying 
enough and becoming vacuous. 

(And with the praise, some brick- 
bats: The lack of an index is a continu- 
ing inconvenience. It is very difficult 
to discover the level of deferral of the 
system and user variables described on 
pages 236-240.) 

Once I had decided to use Starting 
FORTH, the question was whether to 
follow its dialect or FORTH-79. 
Shortly before the semester began, I 
saw James' article [6] describing pro- 
posed changes in the Standard. These 
changes where almost all in the direc- 
tion of the Starting FORTH dialect. 
So, with a more or less clear con- 
science, I decided to go with the dia- 
lect of the text. 

I wrote twelve screens on TEACH- 
ER.DAT to redefine fig-FORTH 
words whose meanings are different in 
Starting FORTH, and to add words 
that exist in Starting FORTH but not 
in FIG. I also installed the "forgiving 
FORGET" [8], and defined a word 
(ZAP) to make unfindable many of 
the FIG words that don't exist in 
Starting FORTH, (I did not ZAP 
those utility words— such as 
NFA— which would exist in some form 
on any development system.) Writing 
this front end was routine, but only 
because of the information in Haydon 
[4] and Ting [12]. 

The next step was to install Daniel's 
version of the FORTH, Inc. line editor 
[3] (slightly revised for Starting 
FORTH) on TEACHER.DAT. 

Continued 
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Teaching FORTH on a VAX (Continued) 



Given this environment, a typical 
student work session begins with log- 
ging on the VAX and typing the com- 
mand "FORTH." Once in FORTH, 
the student types 1 LOAD and the 
Starting FORTH front end (together 
with the editor) is loaded. Thereafter 
the environment is almost identical to 
that described in Brodie's book. 
(There are big structural differences, 
however. The underlying architecture 
—things like vocabulary linkage and 
the layout of the bottom of the stack 
—is still fig-FORTH. These differen- 
ces are rarely noticed in high level pro- 
gramming, and did not cause much 
confusion even when we got to the 
later chapters.) 

Occasionally the VAX intrudes on 
the illusion that the system is single- 
user FORTH: When the VAX is heav- 
ily crowded, disk access becomes 
much slower than on a single-user sys- 
tem. If the student's program crashes 
his system, it's necessary to get out of 
FORTH, unlock STUDENT.DAT, 
come back, and repeat the 1 LOAD 
step. (I could have reduced this 
inconvenience by making ZAP revers- 
ible, and by precompiling the front 
end.) The only PDP-11 specific prob- 
lem I noticed was the necessity of 
keeping HERE even. 
The Students 

Some say FORTH can be taught as 
a first language to persons with no 
computer background. I believe that 
with a friendly front end, FORTH 
could compete with languages like 
Logo for elementary school applica- 
tions. I understand that such projects 
are afoot [9]. However, if the goal is 
to learn FORTH to write serious ap- 
plications, then the students must be 
fairly sophisticated. The prerequisite 
for my course was assembler language 
(CPU irrelevant). This was not be- 
cause I used much assembler in the 
course, but because of the background 
which knowing assembler implies. 
Teaching FORTH in depth involves 
number systems, pointers, data struc- 
tures, and binding times. Without 
previous exposure to such things, the 
average student would have a very 
hard time. (If I had been sufficiently 
expert as a FORTH teacher, and if the 
course had been three hours per week 
instead of two, it might have been 
possible to teach the same range of 
topics with somewhat weaker pre- 
requisites.) 



About 24 students attended regular- 
ly throughout the semester. Only two 
students had FORTH on their own 
systems. (They were welcome to do the 
assignments on those systems.) The 
general level of competence was high; 
I suspect that my requiring assembler 
language was responsible for this. 
The Topics 

The course was to consist of 15 lec- 
tures, each 100 minutes long. (This 
time there were only 14 lectures; one 
day was lost when the campus was un- 
expectedly closed.) It was easy to 
proceed directly through Starting 
FORTH, The first eight chapters were 
covered at the rate of one or two per 
lecture. (I skipped the details of fixed 
point scaling and mixed length 
arithmetic.) 

The pace slowed dramatically when 
we reached Chapter 9, which took 
four lectures. I discussed vectored ex- 
ecution at length. New features were 
illustrated with improvements that the 
students could make to their systems. 
For instance, I showed how to develop 
the LOCATE facility (page 245), and 
how QUIT could be revectored to give 
diagnostics with each **0K." 

The nesting and unnesting diagrams 
were discussed and elaborated on. One 
of the few places where I used assem- 
bler language was to demonstrate the 
implementation of these features in 
James' FORTH. 

I did the FIG implementation of vo- 
cabularies in detail. In fact, I probably 
went too far with this, though it did 
give me a chance to discuss sealed 
vocabularies. 

An added topic was a comparison 
of Direct Threaded, Indirect Thread- 
ed, Token Threaded, and Subroutine 
Threaded code. This led to a discus- 
sion of the hardware implementation 
of FORTH [10]. This lecture would 
probably have been unintelligible if 
the class didn't have an assembler 
language background. 

Chapter 10 took two lectures. After 
going through the text material, I 
showed how FORTH could accom- 
plish Pascal-like read and write state- 
ments. (I don't think the power of 
FORTH's I/O constructs is immedi- 
ately obvious. By showing how easily 
standard I/O from another language 
could be accomplished in FORTH, I 
hoped to give the class a starting point 
for appreciating that power.) In addi- 
tion to presenting the usual virtual 



memory approach to disk, I demon- 
strated that vectoring the I/O primi- 
tives could be used to make the disk 
look like a terminal device. 

Chapter 11 took another two or 
three lectures. Both CREATE . - . 
DOES> and the compiler words were 
covered in detail. I found the compiler 
words a tricky topic. (Things would 
have been a lot trickier if I had had to 
explain the **smart" versions of words 
like and '. After teaching this 
course, I am definitely an opponent of 
'*smart" words.) 

I finished the semester with recur- 
sion, FORTH assemblers, job pros- 
pects, and a survey of further sources 
of information. 

When I teach the course again, I ex- 
pect to be able to cover more material. 
In addition to the (few) topics I skip- 
ped in Starting FORTH, I hope to 
cover compiler security, local vari- 
ables [7], and a few ideas from 
metacompilation. 
The Programs 

Of course, programming is one of 
the most important parts of a lan- 
guage course. I made three formal as- 
signments. The first was to write a for- 
matted dumper word that showed 
both octal and ASCII representations 
of memory. This word was used 
throughout the rest of the course. The 
second project was to write a vocabu- 
lary for studying Conway's **Life" 
[2], I supplied the design for this pro- 
ject. (I believe instructor-enforced 
designs are a good practice where the 
students don't have design 
experience.) The application included 
a two-dimensional wrap-around array 
for the universe of Life, words for dis- 
play and time-stepping, and words for 
the definition and placement of new 
Life creatures in the universe. It was a 
good example of how FORTH can be 
extended to provide a special purpose 
language. (The Infoworld version of 
"Life in FORTH" 111] came out the 
week I made this assignment, and 
made an interesting contrast with what 
I was asking the class to do.) The third 
assignment was an anthology of short 
projects with defining and compiling 
words. 

In addition to real programming, 
we had a 25 minute quiz at the end of 
each lecture. (I provided them with a 
Starting FORTH version of the 

Continued 
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TRANSPORTABLE SOFTWARE 

fig-FORTH and FORTH-79 Model Systems for: 

DEC PDP-11 
RSX-11M 

• Multi-User 

• Multi-Tasking 

• Re-entrant Resident Library 

• Shared Commons 

• RSX-1 1 M Directive Support 
RT-11 

• Compatible with RSX-1 1 M System 

• RT-1 1 Programmed Request Support 

IBM PC 

PC-DOS 
CP/M-86 

• ROM BIOS Support 

• Stand-Alone 

TRS-80 

TRSDOS 

• ROM Support 

• Stand-Alone 

Data Base Support 

Data Language including: 

• Base Relative Variables 

• Advanced String Package 

• Many Classes of Arrays 

Key File Support 

• Hashed Search 

• Binary Search 

Additional features: 

• Input and Output Forms Support 

• Screen Editors 

• Execute Variable Support 

• Extended Memory Support 

• Additional Control Structures 

• Trace Support with Stack Snapshot 

• Decompiling 

• Text Formatting 

• Time and Date Support 

• Double Integer Support 

• Floating Point Support 

Transportable System Development 

• Consulting Services 

• Systems Analysis and Design 

• Communications 

• Networking 

• Encryption 

• Full Sources Available 

Contact: Transportable Software, Inc. 
P.O. Box 1049 
Hightstown, NJ 08520 

-FORTH and FORTH-79 are trademarks of Forth Interest Group • DEC PDP-1 1 RSX-1 1 M RT-1 1 are trademarks 
0* Dtgita: Equipment Co • IBM PC PC-DOS are trademarks of International Business Machines Co. • CP/M-86 is a 
r-acen-a'K of Digital Research Co. • TRS-80 TRSDOS are trademarks of Tandy Co. 



Teaching FORTH on a 
VAX (Continued) 

FORTH-79 Handy Reference for 
these exams.) This many quizzes may 
seem excessive, but there were two 
good effects: We only met once a week 
and it was very easy for students to get 
behind. The quizzes helped them stay 
current. Furthermore, the quizzes 
amounted to short programming as- 
signments (although of the "virtual" 
kind). Far more than with convention- 
al languages, it is possible in FORTH 
to ask short questions whose answers 
do something significant. For in- 
stance, on an early quiz I asked the 
students to write words to translate 
Morse code into readable text. (I 
didn't ask that they handle the Morse 
code "dot.") This is a project that 
would involve a main program and 
various peipheral compUcations in 
conventional languages. In FORTH, it 
is trivial. 

The Bottom Line 

Fifteen of the 24 students became 
adequate to good FORTH program- 
mers, and at least 20 learned a signifi- 
cant amount about FORTH. The 
time-shared approach is attractive, un- 
less you or your students have plenty 
of standalone FORTH systems. 
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♦(^mpuPro.System 



CPU 68K 




CPU 68K: A/T $695, CSC $850 
SPECIFICATIONS: 

The CPU 68K operates at 8 MHz assembled and 
tested (A/T), and 10 MHz for the Certified System 
Component (CSC), version of the board. 

FORTH HARDWARE REQUIREMENTS: 

CompuPro's DISK 1 floppy disk controller; INTER- 
FACER 1, 2, 3, or 4; 64K of RAM and CPU 68K. 



COMPLETE FORTH OPERATING SYSTEM: $200. FEATURES: an assembler, full screen editor, CP/M® 
file transfer utility, time-of-day/date stamping, shadow screen printing utility, and line editor, fully compatible 
with STARTING F ORTH by Leo Brodie, as well as many other useful extensions. 

All CompuPro products meet the most demanding mechanical and electrical standards, and are backed with 
one of the best warranties in the business (1 year limited warranty on all BOARD LEVEL products, 2 year 
limited warranty with exchange program for products qualified under our Certified System Component pro- 
gram). Call CompuPro at (415) 562-0636 for additional information or to order. 



COMPLETE 68K SYSTEM — $8995 




INCLUDES: 

• ENCLOSURE 2 DESK TOP 

• 8 MHz CPU 68K 

• SYSTEM SUPPORT 1 

• INTERFACER 4 

• 256K BYTES OF 16-BIT MEMORY 

• 1.5 MBYTES OF M-DRIVE/H 

• DISK 1 CONTROLLER 

• DISK ENCLOSURE WITH 2 QUME DRIVES 
(2.4 MBYTES) 

• ALL CABLES 

• mapFORTH & CP/M-68K^" 

CP/M is a registered trademark of Digital Research. 



AUTHORIZED SYSTEMS CENTERS Offer Complete installation and implementation of our CPU 68K SYSTEM, 
Call (415) 562-0636 and ask us for the name of the systems center nearest you. Price shown does not 
include dealer installation and support services. 

CompuPro division Godbout Electronics — Oalcland Airport, CA 94614 
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I Perliel 
Isoftware Systems] 

S presents 

I MARX FORTH VI .4 

S $150 

S For the > 

8 ATARI 

8 RADIO SHACK 

I NORTH STAR DOS \ 

i CPM S 

8 POLYMORPHIC I 

K Marx Forth is not just another warmed (\ 

fi over Fig Forth. This 79-^83 standard Cj 

jj Forth has been completely rewritten to S 

U include advanced coding techniques not fl 

X available in most systems. 5 

ij Marx Forth package includes: fj 

[j • Complete source code J 

\ • Screen editor 5 

}\ • Double number word set X 

n • Forth style macro assembler A 

ij • Standard Marx Forth extension word set ft 

X Extensions include: X 

u • Case • File system n 

w • Arguments - Results • Disk directories h 

H • Printer control • String word set Q 

\ • Cursor control •Recursion V 

U Internal advancements include: 5 

iJ • Links in front of names a 

5 • Fast math ^ 

I? •No names on internal words (\ 

I? • Super fast compiler J 

i • New 83-standard circular DO-LOOP 3 

J • DO-LOOP executes times if arguments X 

) are equal X 

5 • LEAVE leaves immediately \ 

) • Multiple WHILES (j 

< • Vocabulary trees without vocabulary links J 

< • Compiler security ^ 
j) • 1 byte relative branches for conditionals }i 
) • Smart CMOVE X 
) • Machine code where it counts j 

\ All Marx Forths are compatible and most code V 

J written on one system will run on any other with no x 

) modifications. jJ 

j Also available; the Marx Forth target compiler. This JJ 

j allows your program to be compiled into a stand alone w 

j object file that doesn't need Forth in the system to run. » 

j The Marx Forth application software development 

j system is available to software houses. This package in- j} 

j eludes Marx Forth for all systems we support including jj 

i the target compilers. This allows software to be devel- }{ 

J oped for many computer systems simultaneously as » 

i well as having the most powerful compiler available. >{ 
) These applications can be target compiled to run on all 

) computers for which Marx Forth is available and mar- ftj 

) keted without the end user ever knowing it was written ft 

in Forth. Call for details. (j* 

) Marx Forth model license is available for Forth ven- « 

) dors who want to improve their product or implement « 

> Marx Forth for another machine. Call for marketing A 
* incentives. « 

I COMING SOON: Marx Forth for the IBM PC and » 

) Apple and Marx Multi-tasking Forth for the larger S 

> systems. nf 

I Perliel Software Systems J 

I 1452 NORTH CLAY 4 

I SPRINGFIELD, MO. 65802 ^ 

I (417) 862-9830 or (417) 883-3709 S 

I Consulting Services available S 



FORTH Standards Corner 



Compilation Addresses 
and Parameter Fields 



Robert L. Smith 



At the last meeting of the FORTH 
Standards Team, probably no subject 
generated more heated debate than the 
questions relating to compilation ad- 
dresses, parameter field addresses, 
and which one should be used by 
EXECUTE or returned from FIND 
and ' (tick). In FORTH-79, ' returned 
a parameter field address and FIND 
returned a compilation address. The 
main use for the compilation address 
was for use with EXECUTE, and 
possibly with COMPILE. The parame- 
ter field returned by ' could only be 
used with constants and variables. The 
parameter field of a DOES> word 
could only be obtained from the ex- 
ecution of the word which was created 
by the CREATE DOES> pair. Under 
FORTH-79 there is no way to obtain 
the parameter field address of a word 
from its compilation address (or vice- 
versa). However, many implementa- 
tions of FORTH use simple indirect 
threaded code in which the parameter 
field address is two bytes greater than 
the compilation address. In such sys- 
tems the user may use only the param- 
eter field, for example, and the system 
converts internally to compilation ad- 
dresses when needed. This presents a 
certain simpUcity to the user. This 
scheme is one form of ''mono- 
addressing," and was provisionally 
accepted by the Standards Team at the 
Washington D.C. meeting. This was 
incorporated in the first draft (A) of 
the proposed FORTH-83 Standard. 

After distribution of Draft A, a 
number of people and groups objected 
strongly to the mono-addressing 
scheme presented. Many objections 
were the result of implementation 
problems. The compilation address is 
more fundamental than the parameter 
field address, and in many implemen- 
tations it is very easy to convert a com- 
pilation address to a parameter field 



address while the inverse is very dif- 
ficult. Even with indirect threaded 
code, some of the new approaches put 
the compilation addresses (usually 
with the heads) in one * 'address 
space*' and the parameters in another 
address space. "Token code" systems 
generally completely separate the com- 
pilation addresses and the parameter 
fields. Direct threaded code systems, 
directly compiled and "JSR" systems 
may have a variable separation be- 
tween the two addresses. Indeed, for 
some classes of words in some systems 
the parameter field address has no 
meaning at all. 

Within the context of the rest of the 
proposed standard the main use of the 
parameter field (as determined from, 
say, ' or FIND) is as a secondary refer- 
ence to DOES> words. The subteam 
on "addressing" took into account 
the above facts and objections and 
suggested to the team as a whole that 
the fundamental address is the com- 
pilation address. This is the address to 
be returned by FIND, and [']. This is 
the address to be used by EXECUTE. 
When the parameter field is needed, a 
conversion word named BODY is to be 
used. This performs the same action as 
the fig-FORTH word PFA. After 
much debate the team decided to 
accept the recommendation of the 
subteam. Under the proposed stan- 
dard the programmer has access only 
to the parameter field of variables and 
DOES> type words. The use of 
BODY for any other type of word does 
not seem to be useful as part of a 
Standard Program. 



Editor's Note: 

Robert Smith is the current Secretary 
of the FORTH Standards Team and 
was a member of the original FORTH 
Implementation Team for FIG. He is 
employed by ESL Inc. in Sunnyvale, 
California. 
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z-80® and 8086 FORTH 

PC/FORTH™ for IBM® Personal Computer available now! 



FORTH Application Development Systems include interpreter/compiler with virtual memory 
management, assembler, full screen editor, decompiler, demonstration programs, utilities, and 130 
page manual. Standard random access disk files used for screen storage. Extensions provided for 
access to all operating system functions. 



Z-80 FORTH for CP/M® 2.2orMP/M $ 50.00 

8086 FORTH for CP/M-86 $100.00 

PC/FORTH for IBM Personal Computer $100.00 

Extension Packages for FORTH systems 

Software floating point $100.00 

Intel 8087 support (PC/FORTH, 8086 FORTH only) $100.00 

AMD 9511 support (Z-80, 8086 FORTH only) $100.00 

Color graphics (PC/FORTH only) $100.00 

Data base management •• $200.00 

Symboliclnteractive Debugger (PC/FORTH only) $100.00 

Cross Reference Utility $ 25.00 

Curry FORTH Programming Aids $150.00 

PC/GEN™ (custom character sets, IBM PC only) $ 50.00 



Nautilus Cross-Compller allows you to expand or modify the FORTH nucleus, recompile on a host 
computer for a different target computer, generate headerless code, and generate ROMable code 
with initialized variables. Supports forward referencing to any word or label. Produces load map, list 
of unresolved symbols, and executable image in RAM or disk file. No license fee for applications 
created with the Cross-Compiler! Prerequisite: one of the application development systems above 
for your host computer. 

Hosts: Z-80 (CP/M 2.2 or MP/M), 8086/88 (CP/M-86), IBM PC (PC/DOS or CP/M-86) 



Targets: Z-80, 8080, 8086/88, IBM PC, 6502, LSI-11, 68000, 1802, Z-8 

Cross-Compiler for one host and one target $300.00 

Each additional target $100.00 

AUGUSTATM from Computer Linguistics, for CP/M 2.2 $ 90.00 

LEARNING FORTH, by Laxen& Harris, for CP/M $ 95.00 

Z-80 Machine Tests Memory, disk, console, and printer tests 

with all source code In standard Zilog mnemonics $ 50.00 



All software distributed on eight inch single density soft sectored diskettes, except PC/FORTH on SVa inch soft sectored 
single sided double density diskettes. Micropolis and North Star disk formats available at $10.00 additional charge. 

Prices include shipping by UPS or first class mail within USA and Canada. Overseas orders add US$10.00 per package for air 
mail. California residents add appropriate sales tax. Purchase orders accepted at our discretion. No credit card orders. 

Laboratory Microsystems, Inc. 

4147 Beethoven Street 
Los Angeles, CA 90066 
(213) 306-7412 

Z-80 is a registered trademark of Zilog, Inc. 

CP/M Is a registered trademark of Digital Research. Inc. Augusta Is a trademark of Computer Linguistics 

IBM is a registered trademark of International Business Machines Corp. PC/FORTH and PC/GEN are trademarks of Laboratory Microsystems 
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Algebraic Expression Evaluation 
in FORTH 



Michael Stolomtz 
Editor's Note: 

The approach that Mr, Stolowitz takes 
here resembles that used by Charles 
Moore in his BASIC compiler 
(FORTH Dimensions III/ 6, p, 175), 
although the two approaches were 
developed independently. We asked 
Mr. Stolowitz to refer back to Mr, 
Moore 's implementation for com- 
parison. He notes that Mr, Moore's 
approach is somewhat simpler since 
his algebraic parser only had to work 
in compile mode, and operators could 
be maintained on the data stack, Mr, 
Stolowitz's parser runs interpretively 
as well; therefore it requires an addi- 
tional operator stack, 
Description of tlie Algorithm 

Almost all systems which handle al- 
gebraic expressions do so by first con- 
verting the infix notation to postfix 
notation for evaluation. Since postfix 
or RPN arithmetic is built into 
FORTH, only a process for conver- 
sion of the notations is required. 
Before jumping into the algorithm in 
detail, let's consider an example: 

A + B-CMD/A) s 

The algebraic rules tell us that the 
expression in the parentheses must be 
evaluated before the multiplication 
may be performed. The multiplication 
must precede the subtraction. The ad- 
dition and subtraction operators have 
the same **precedence" so that the al- 
gebraic result is independent of the 
order in which they are performed. On 
real machines with round off errors, it 
is probably best to execute them in 
some consistent fashion in order to 
obtain reproducible results. We will 
use left to right evaluation in the fol- 
lowing discussion. Let's now examine 
an RPN statement of the same expres- 
sion: 

AB + CD A/ * - 

There are several significant items 
to note. First, the operands appear in 
exactly the same order in both the in- 



fix and postfix versions of the expres- 
sion. As the operands are encountered 
in a left to right scan of the expression, 
each will push its value onto the data 
stack. The next thing to note is that 
the appearance of each of the opera- 
tors from the algebraic expression has 
been delayed until a point in the RPN 
expression where all of the required 
operands will be available on the 
stack. This allows the operators to be 
immediate, i.e. they execute as soon as 
they are encountered in the RPN ex- 
pression. The final point to note is 
that it is possible to obtain an RPN ex- 
pression with the above properties 
without the use of parentheses. 

The algorithm for infix to postfix 
conversion uses an additional stack on 
which to hold operators while they are 
being delayed as described above. The 
algorithm is simply to place each oper- 
ator on the operator stack as it is en- 
countered in a left to right scan of the 
algebraic expression; however, an 
operator may not be pushed on top of 
another which has a precedence equal 
to or greater than its own. If neces- 
sary, operators are removed until the 
new one may be pushed. Operators 
removed from the stack are output by 
the algorithm. Since there is no change 
in their sequence, the algorithm passes 
operands directly to the output. 

When a ( is encountered, a special 
operator called a floor is placed on the 
stack. The floor, while having a very 
low precedence, may be placed on top 
of whatever is already there. The floor 
will allow additional low precedence 
operators to be pushed. The effect of a 
) is to dump the operator stack down 
to and including the most recent floor. 

Unless the entire expression had 
been enclosed in parentheses, there 
will be one or more operators remain- 
ing on the stack when the end of the 
expression is reached. This is because 
there is no way of anticipating the 
presence or absence of additional 
operators. A signal is required (the = 



key on an algebraic calculator) to 
dump the balance of the operators 
from the stack completing the transla- 
tion. 

Let's evaluate the expression in the 
example using this algorithm. The A 
operand would pass through to the 
data stack. The + would be pushed 
onto the operator stack since there is 
no operator there with a higher prece- 
dence. The 8 operand would then go 
to the data stack. At this point the - is 
encountered which has the same prece- 
dence as the + which is already on the 
stack. The + is removed and executed 
leaving A + B on the data stack and 
the - is pushed onto the operator 
stack. The C goes to the data stack. 
The * has a higher precedence than the 
- so it may be pushed onto the opera- 
tor stack. Now we come to the ( so a 
floor is placed on top of the - and the 

The D goes to the data stack and the 
/ is pushed on top of the floor. The 
final A goes to the data stack. Now 
comes the ) which causes the / to be 
dumped and executed and the floor to 
be removed. The / produces the inter- 
mediate result D / A on the top of the 
data stack. At this point the = causes 
the rest of the operator stack to be 
flushed. The * and + are executed in 
the sequence in which they are re- 
moved producing the same execution 
sequence as the RPN expression. 

It should be clear from the above 
example that the complexity of the ex- 
pressions which may be evaluated is 
limited only by the depths of the oper- 
ator and data stacks. 

While the preceding discussion re- 
fers to the * 'evaluation" of an expres- 
sion, the actual calculation need not 
be performed at the same time as the 
translation to RPN. The resulting 
RPN sequence of operators and oper- 
ands could be recorded for later execu- 
tion. This process is, of course, "com- 
pilation" and permits rapid evaluation 
of the expression for different com- 

Continued 
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Algebraic Expression Evaluation in FORTH (Continued) 



SCR # 66 

\ ALGEBRAIC 30NOV82MCS 

1 CREATE OP 44 ALLOT 
2 

3 : 7INTERP ( pfa — ) CFA STATE @ IF , ELSE EXECUTE THEN ; 
4 

5 : OPP@ ( — addr ) OP DUP @ + ; 
6 

7 : >0P ( pfa lev — ) 4 OP +! OPPe 2! ; 
8 

9 : 0P> ( — ) OPP@ 2@ -4 OP +! DROP 7INTERP ; 

10 

11 ! LEV? ( — lev ) OPP@ @ ; 
12 

13 : ]A BEGIN LEV? WHILE 0P> REPEAT 

14 [COMPILE] FORTH ; IMMEDIATE 

15 — > 

SCR # 67 

\ ALGEBRAIC 30NOV82MCS 

1 : INFIX ( lev — ) ( old rpn op new infix op ) 

2 ' CREATE SWAP , , IMMEDIATE 

3 DOES> 2@ BEGIN DUP LEV? > NOT WHILE 

4 >R >R 0P> R> R> REPEAT >0P ; 
5 

6 VOCABULARY ALGEBRAIC IMMEDIATE ALGEBRAIC DEFINITIONS 
7 

8 7 INFIX * * 7 INFIX / / 

9 6 INFIX + + 6 INFIX 

10 5 INFIX > > 5 INFIX < < 5 INFIX = = 

11 4 INFIX NOT NOT 

12 3 INFIX AND AND 

13 2 INFIX OR OR 
14 

15 — > 
SCR # 68 

\ ALGEBRAIC 30NOV82MCS 

1 : ( ['ICR 1 >0P ; IMMEDIATE 

2 

3 : ) FORTH BEGIN 1 LEV? < WHILE 0P> REPEAT 

4 L LEV? = IF -4 OP +! 

5 ELSE 1 ABORT" Missing (" THEN ; IMMEDIATE 

6 

7 FORTH DEFINITIONS 
8 

9 : A[ OP ! [COMPILE] ALGEBRAIC ; IMMEDIATE EXIT 
10 

11 Examples: A[ A+B-C*(D/A) ]A 

12 

13 or : EPXR A[ A + B- C*{D/A) ]A ; 
14 

15 OBWRO'CONY ANGIELSKI is Polish for "Reverse English"! 
Continued 
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INTRODUCING 
CONTROL TECH 
CT 16/32 

68000 BASED 
NETWORK 
WORK STATION 



FEATURES 

• 68000 (6 mhz) CPU 

• 128K BYTES RAM 

• 32K BYTES EPROM 

• RS232C SERIAL PORT 110 - 
9600 BAUD JUMPER 
SELECTABLE 

• CENTRONICS PARALLEL 
PRINTER PORT 

• 6840 TRIPLE 16-BIT 
TIMER 

• 7 LEVELS OF AUTO- 
VECTORED INTERRUPTS 

• 358 KBAUD NETWORK PORT 

• 16K BYTE NETWORK 
FIRMWARE FOR MONITOR, 
DEBUG, ASSEMBLY/- 
DISASSEMBLY 

• 16K BYTE FIRMWARE 
NETWORK BASED 68000 
FORTH BY CONTROL TECH 

INTRODUCTORY PRICE 
$1695.00 

CONTROL TECH FORTH for 
the 68000 CPU is similar to FIG- 
forth for 8 bit computers but 
uses 32 bit addresses. It is sup- 
plied in 2 2764 EPROMS but is 
copied into RAM on system 
boot-up. 

CONTROL TECH FORTH NET- 
WORK transfers Forth screens 
between one or more disk bas- 
ed host computers and any 
number of work stations at 358 
kbaud. A network protocol is 
used to verify data integrity and 
prevent network collisions. 
Boards are available to inter- 
face the network with Ohio 
Scientific and S-100 systems. 
Another bus independent 
board plugs into a DIP socket 
to replace any 6850 ACIA (aux- 
illiary serial port required). Host 
network software is in high 
level FIG-Forth except for a 
short network driver routine. 
Contact us with your specific 
requirements. 

CONTROL TECH 
DISTRIBUTORS, INC. 
5625 Lawton Drive 
Sarasota, FL 33583 
(813) 924-1417 



Algebraic Expression Evaluation 
in FORTH (Continued) 



binations of variables without return- 
ing to the original expression. 
The Implementation 

An implementation of the above al- 
gorithm is given in the appendix. The 
program begins with the definition of 
a data structure, in this case an opera- 
tor stack. The word OP is defined to 
return the address of a block of RAM 
allocated for this purpose. 

The stack is used to store double 
word (four byte) entities consisting of 
operator/precedence pairs. The dou- 
ble word at the base of the stack is 
used for the top of stack pointer and 
contains the byte offset from the base 
of the stack to the top element, a zero 
value indicating stack empty. The 
other half of the pointer double word 
contains a precedence of zero. 

The word >0P, pronounced **to 
op" is the stack push operation. It ex- 
pects an operator and precedence level 
on the data stack, bumps the operator 
stack pointer by four and stores the 
double word at the new TOS location. 
>0P uses a primitive OPP@ (*'op 
pointer fetch") to obtain the absolute 
location of TOS in memory. 

0P> pronounced *'from op" is the 
stack pop operation. The precedence 
level is discarded at this point since it 
is not required in RPN. 0P> is * 'state 
smart" because it uses the conditional 
interpretation word 7INTERP which 
looks at the system variable STATE to 
determine if the system is currently in- 
terpreting or compiling. If compiling, 
it compiles the operator's execution 
address in the dictionary. If interpret- 
ing, it executes the operator immed- 
iately. 

The word INFIX does the bulk of 
the work. INFIX is given a precedence 
level, the name of an existing RPN 
operator and the name to be given to 
the new corresponding infix operator. 
It looks up the execution address of 
the existing word and then creates the 
new word placing both the execution 
address and precedence level in its pa- 
rameter field. When any of the words 
created by INFIX are invoked, the 
code following the word DOES> will 
be executed using the execution 



address and precedence from the 
particular words parameter field as ar- 
guments. This code implements the al- 
gorithm described previously. The ex- 
ecution address and precedence for the 
operator are pushed onto the operator 
stack with operators of lower prece- 
dence being popped first. The opera- 
tors created by INFIX are kept in a 
separate vocabulary so that they might 
have names which would otherwise 
conflict with standard FORTH words. 
This vocabulary has been named 
ALGEBRAIC. 

The definitions for ( and ) are also 
segregated from the FORTH diction- 
ary because these delimiters are com- 
monly used for comments. The new ( 
simply pushes a dummy operator with 
a precedence of 1 (to distinguish it 
from an empty stack which has a 
precedence of 0) onto the operator 
stack. The ) dumps the stack until it 
finds the level 1 operator or issues an 
error message if there is not one to be 
found. 

The final two definitions are placed 
in the FORTH vocabulary. The first is 
A[ which is used to enter algebraic 
mode. It selects the ALGEBRAIC 
vocabulary and clear the operator 
stack. The second word is ]A. This 
word is used to exit algebraic and to 
reselect the FORTH vocabulary, but 
first, it performs the *'end of expres- 
sion" function by dumping any opera- 
tors remaining on the operator stack. 

Two factors allow all of the above 
code to work in either execution or 
compilation modes. First, the words 
created by INFIX and the parentheses 
operators are all IMMEDIATE words, 
meaning that they execute even though 
the system might be compihng (like 
compiler directives in other systems). 
Thus all of the operator stack activity 
will occur as the expression is scanned 
independent of the state of the ma- 
chine. 7INTERP will take care of the 
state difference as the operators come 
off of the stack by compiling or ex- 
ecuting as appropriate. 

The other factor allowing state in- 
dependence is that the operands used 
are all self fetching at run time. Oper- 

Continued 
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LEAST EXPENSIVE 
FORTH SYSTEM AVAILABLE 

MULTI-FORTH for the SINCLAIR 
ZX/81 (TtMEX/SINCLAIR 1000) BY 
TREE SYSTEMS 

Compiler Directive (not Interpretive) 
Compilers (DO LOOP. IF ELSE THEN, 
etc.) need not be put in a definition to 
run. 

Single user Multi-tasking 
Event Scheduling (32 Bit clock. 2-yrs.) 
•Schedule with AT. IN. EVERY 
commands 

• maximum resolution 1/60th second 
Task Options: 

• LOCK, UNLOCK, START. STOP 

• Tasks can dynamically reschedule 
themselves 

• Up to 10 tasks scheduled at one time 

• Tasks can be linked to run in the 
background 

• Each task has its own 32 bit clock 

• Task execute according to priority 

• Wait execution in 31 deep event que 
Unique Editor: 

• User defined split screens 

• Complete visual editor 

• Run editor while execution screen is 
running program 

• Cursor oriented 

• Delete lines 

• Delete characters 

• Store line in pad 

• Insert line from pad 

• Automatic character insert 

• Compile Lines 
Technical Information: 

• extremely fast, 

run 30000 DO LOOP in 1 second, 
(real time 32 bit clock with user 

defined periods) 
high priority task runs constantly 
for detection of stack underflow, 
has separate character stack, user 
stack, and processor stack. 
RESIDENT ON 64K EPROM. HOUSED 
INSIDE YOUR ZX/81 SWITCH BE- 
TWEEN BASIC AND FORTH RE- 
QUIRES only 2K RAM TO OPERATE 
Works with 16K and 64K RAM modules. 
Turns the SINCLAIR into: 

• excellent real time controller 

• home environment controller (tem- 
perature zones, time zones). 

• real time data acquisition of analog 
and digital signals. 

• even use it to control your model 
railroad. 

• has DELAY Variables, and CLAMP 
Variables as in most real time control 
languages. 

Complete instruction booklet describ- 
ing the language and applications. 

EPROM Extension $49.95 

Complete System 

(including Sinclair) $149.95 

Prices include shipping. 
Free information available. 



Write to: 

Tree Systems 

Suite 233 
3645 28th St., S.E. 
Grand Rapids, Mi. 49508 
(616) 949-8506 



Algebraic Expression 
Evaluation in 
FORTH (Continued) 

ands of this type include literals and 
constants. Both may be compiled and 
return values when executed. This is 
not a restriction as constants may be 
conveniently used as variables. There 
are many references in the literature 
on TO VARIABLES. 

A final significant observation must 
be made in regard to the operands. 
While it was convenient to think of the 
operands as sixteen bit integers since 
this is what most FORTH systems 
have arithmetic operators for, in no 
way does any of the above code de- 
pend on that fact. The operands could 
just as well have been double words or 
floating point words which fetched 
themselves to a floating point stack in 
an arithmetic chip. The only require- 
ments are that the operands be self 
fetching to some stack and that the 
RPN operators be appropriate for the 
data types and stack used. The gener- 
aUty of the above code and the range 
of applications possible through 
changing only those words created by 
INFIX takes some time to appreciate. 

In summary, a relatively minor ex- 
tension to FORTH 's compiler has 
been presented for the compilation of 
algebraic expressions. A mechanism is 
provided for the definition of infix 
operators in terms of their RPN equiv- 
alents and a precedence. The resulting 
code consists entirely of RPN opera- 
tors previously existing in the system 
so that none of the compiler exten- 
sions are required for execution. The 
techniques are easily extended to in- 
clude additional operations or data 
types. While this system provides a 
convenient tool for many kinds of ap- 
plications, the user is cautioned 
against permanently isolating the 
natural arithmetic of his machine. 
After all, algebraic has been described 
as OBWRO'CONY ANGIELSKI 
which is of course Polish for **Reverse 
English/' 



Michael Stolowitz is a Consulting 
Engineer based in Danville, Calif- 
ornia. 



Data 
Box 



• A comprehensive set of 
data base management tools. 

• Professionally written manual 
with complete installation guide, 
tutorial, glossary, and 
application examples. 

• 64 screens of fully commented 
structured FORTH-79 standard 
code...fig-FORTH compatible. 

• Records and files stored in FORTH 
screen blocks. . fully compatible 
with any FORTH system. . .easily 
adapted to any block size. 

t Free format. . .records can be as 
large or small as you wish... mixed 
record sizes in the same file. . . 
with NO wasted space. . . . 
no fixed-length fields! 

• Store ANY kind of data. . . . 
no data types! 

• ideal for relational data bases. 

• Keep you files on the same disk 
as your programs. 

• Full protection of files and 
dictionaries from overwriting 

• Simple to use... easy to 
impement on your FORTH system 

$29.95 

AH documentation and source screens. 
Add $5.00 for MicroMotion Apple J[ + 
compatible disk (source screens only). 



Pathway 
Projections 

8408 1 8th Ave. West, 8203 
Everett, WA 98204 



Guarantee: If you don't agree this 
is quality worthwhile software for you, 
return it in 30 days and we'll refund 
your check. 

No questions 

no copy protection ...we trust you. 
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DEVELOPMENT TOOLS 



Develop FORTH code for any target 
8080/Z80 system on your current 8080/Z80 
or Cromemco CDOS based system 




8080/Z80 METAFORTH 
CROSS-COMPILER 

• Produces code that may be downloaded to any Z80 or 
8080 processor 

• Includes 8080 and Z80 assemblers 

• Can produce code without headers and link words for up to 
30% space savings 

• Can produce ROMable code 

• 79 Standard FORTH 

• Price $450 



No downloading - No trial PROM burning. 
This port-addressed RAM on your S-100 host 
is the ROM of your target system 




WORD/BYTE 

WIDE ROM SIMULATOR 

• Simulates 16K bytes of memory (8K bytes for 2708 and 2758) 

• Simulates 2708, 2758, 2516, 2716, 2532, 2732. 2564 
and 2764 PROMS 

• The simulated memory may be either byte or 16-bit 
word organized 

• No S-100 memory is needed to'hold ROM data 

• Driver program verifies simulated PROM contents 

• Price $495 each 



CONSULTING SERVICES 

Inner Access provides you with Custom Software Design. We have supplied many clients with 
both Systems and Application Software tailored to their specific needs. Contact us for your 
special programming requirements. 



FORTH WORKSHOPS 

ONE-WEEK WORKSHOPS - ENROLLMENT LIMITED TO 8 STUDENTS 



FORTH 

Fundamentals 

• Program Design 

• Program Documentation 

• FORTH Architecture 

• FORTH Arithmetic 

• Control Structures 

• Input/Output 

• The Vocabulary Mechanism 

• Meta-Defining Words 

OCT. 4-8 NOV. 8-12 
JAN. 3-7 FEB. 7-11 

$395 Incl. Text 



Advanced FORTH 
Applications 

• FORTH Tools 

• Engineering Applications 

• Floating Point 

• Communications 

• Sorting & Searching 

• Project Accounting System 

• Process Control 

• Simulations 

NOV. 15-19 
FEB. 14-18 



R 



$495 Incl. Text 

Instructors: LEO BRODIE, GARY FEIERBACH and PAUL THOMAS 
(For further information, please send for our complete FORTH Workshop Catalog.) 

Inner Access Corporation 

RO. BOX 888 • BELMONT, CALIFORNIA 94002 • (415)591-8295 



Advanced FORTH 
Systems 

• FORTH Internals 

• Assemblers and Editors 

• Other Compilers 

• Cross-Compilation Theory 

• Romability, Multitasking, 

Timesharing 

• File Systems/ 

Database Systems 

OCT, 11-15 
JAN. 10-14 

$495 Inci. Text 
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Techniques Tutorial 

Meta Compi 

Henry Laxen 



Meta Compiling is an often heard 
term in FORTH, and yet most people 
approach it with fear and anxiety. 
This is unfortunate since it is really not 
that difficult and it is extremely 
powerful. Many purposes have been 
attributed to Meta Compiling, such as 
generating new FORTH systems, 
creating a custom application, cross 
compiling code for a different target 
machine, removing the names 
(headers) from the code, and 
generating ROMable code. All of 
these are different benefits of the Meta 
Compiling process, but they may or 
may not be the only way to accomplish 
the task. For example FIG allowed 
people to create new FORTH systems 
by supplying assembly language list- 
ings of FORTH which people could 
enter into their computer and assem- 
ble with their assembler. No Meta 
Compiler ever entered the picture. 
Before exploring Meta CompiUng in 
detail, let's first look at the dictionary 
definition of the word META. 
META a prefix meaning 
L changed, transposed [meta- 
morphosis, metathesis]; 2. after, 
beyond, higher [metaphysics] 
Meta Compiling in FORTH com- 
bines attributes of both of the above 
definitions. It occurs on a * 'higher 
level" from ordinary compiling and 
involves a change from one environ- 
ment to another. In one sentence, 
Meta Compiling in FORTH is a pro- 
cess in which FORTH code is com- 
piled in one environment and executed 
in another. The environment in which 
the code is compiled is called the 
HOST system. The environment in 
which the code compiled by the Meta 
Compiler will finally execute is called 
the TARGET system. One of the main 
difficulties encountered in Meta Com- 
piling is the confusion that naturally 
arises out of the interactions between 
the different environments. Many 
words in the Meta Compiler have to- 
tally different meanings depending on 
the context in which they are used. 

In the first part of this exposition we 
will look in detail at one of the central 
issues of Meta Compiling, namely that 



ing I 

of Storage allocation. We will leave the 
issue of context for the next article. 
Think of a Meta Compiler as a ma- 
chine in which FORTH Source Code is 
cranked in and Target Object Code is 
cranked out. In any software project 
one of the main resource allocation 
problems is how to allocate memory. 
The same is true in Meta Compiling, 
and this article will address the issue of 
memory allocation for Meta Com- 
pilers. The problem then is to con- 
struct a mapping in which the Target 
Image can reside, and to find a con- 
venient way of manipulating that Tar- 
get Image. Instead of reinventing the 
wheel, let's do it the way FORTH does 
it. FORTH has a set of words that 
read and write memory, as well as al- 
locate and initialize space in the dic- 
tionary. Presumably we will need the 
same functions in the Target Image. 
This difference is that while the ordi- 
nary FORTH words that read and 
write memory, namely @ and !, oper- 
ate on addresses, our new read and 
write memory words will have to oper- 
ate on Target addresses. What we need 
is a word which will map Target ad- 
dresses into Host addresses. Let's call 
this word THERE and it must behave 
as follows: 

target-address THERE host-address 
Using THERE, we can define the read 
and write memory words as 
: @-T THERE @ ; 
: !-T THERE ! ; 
We append the -T suffix to indicate 
that we are fetching and storing into 
Target address. We can define C@-T 
and C!-T in a similar way. Next we 
want to implement something analo- 
gous to a dictionary in the Target Sys- 
tem. The amount of space that has 
been allocated in an ordinary FORTH 
system is held in a variable called DP. 

We can analogously define a vari- 
able called DP-T to hold the amount 
of space allocated in the Target Sys- 
tem. Armed with that definition we 
can define the dictionary words as 
follows: 

: HERE-T DP-V @ ; 
: ALLOT-T DP-V +! ; 
: HERE-T ! -T 2 ALLOTT ; 

(Why is there an ordinary @ in the 
definition of HERE-T and a !-T in the 
definition of ,-T?) Why have we gone 
through such an elaborate ritual? 



Let's take a quick look at what we can 
do with these words. Perhaps you 
recall how FORTH Assemblers work. 
(If not wait for a future issue and I will 
discuss them in this column.) The 
main idea behind FORTH Assemblers 
is that you define a set of FORTH 
words whose names are op codes for 
your particular machine. When these 
words are executed they assemble their 
machine language binary op code into 
the dictionary along with whatever 
parameters are required. For example 
the jump instruction on the 8080 is a 
hex C3 followed by the 16 bit address 
of where to jump to. The JMP word 
in the FORTH Assembler is thus de- 
fined as: 

:JMP CSC, 
The C, assembles the op code into the 
dictionary and the , assembles the 
address that must have been left on the 
stack. Notice that the compiled code is 
inline in the dictionary. Now, using 
the -T definitions we defined above, 
we can now assemble code which will 
execute from a different address than 
where it was assembled. The 
corresponding definition for jump 
would be: 

: JMP C3 C,-T ,.T ; 
This would assemble the op code in 
the next available location in the Tar- 
get System, not in the Host System. 
Furthermore, it will jump to the speci- 
fied Target address when it is execut- 
ed, not to the Host address. What we 
have done is turned a FORTH Assem- 
bler that can assemble inhne code 
words into a cross assembler that can 
assemble code that will execute in an 
environment other than FORTH. 

If the significance of what has just 
been discussed has escaped you, don't 
feel bad. It escaped me the first six 
times also. Don't be fooled by the 
simplicity of the implementation. The 
mere fact that we can assemble or 
compile code in a different memory 
area than the one we are executing out 
of is very powerful. It is one of the 
cornerstones of the Meta Compiling 
process. 

It now only remains to define the 
mapping word THERE, which takes a 
Target address and returns a Host ad- 
dress. The simplest approach, if you 
have enough user memory, is to sim- 

Continued 
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Meta Compiling I 
(Continued) 

ply define THERE as a constant offset 
as follows: 

20000 CONSTANT TARGET-OFFSET 
: THERE TARGET-OFFSET + ; 

You can't get much simpler than that. 
However, there are times when mem- 
ory is tight or the application program 
is just too large to fit. What do you do 
then? In most other programming lan- 
guages you either give up or start the 
entire application over from scratch. 
We in FORTH have the luxury of 
redefining a few words and the rest of 
the application will never know the 
difference. Let's take a look at how we 
can provide a mapping from Target to 
Host addresses without taking up any 
room in the Host dictionary. The an- 
swer is of course to use BLOCK as a 
means of mapping memory addresses 
into disk addresses. Consider the 
following: 

10 CONSTANT TARGET-BLOCK 

: THERE ( target-addr ~ host-addr ) 

1024 /MOD TARGET-BLOCK + BLOCK + ; 

We first divide by 1024 bytes per 
block, and get back a quotient and a 



remainder. The quotient is the block 
number and the remainder is the byte 
index into that block. All we have to 
do is add in the beginning block num- 
ber, TARGET-BIjOCK, and call our 
friend BLOCK to perform the map- 
ping of a block number into a buffer 
address. Finally, we add in the byte 
index into the returned address and we 
are done. Or are we? There are two 
bugs in the above code, as it relates to 
Meta Compiling. See if you can find 
what they are. 

The first bug will probably not bite 
you, but when it does it will produce 
very dramatic results and it will be ob- 
vious how to fix it. The problem is 
that when dealing with addresses, you 
should be very careful what kind of 
arithmetic you perform. Addresses are 
unsigned quantities, while division 
and mukiplication deal with signed 
quantities. The above code works fine 
as long as the Target address is less 
than 32K. As soon as it is larger, 
/MOD returns a signed quotient and 
remainder, and we will be passing 
BLOCK a very strange block number. 



I will leave it to you to rewrite THERE 
to avoid this 32K problem. 

The second bug is far more subtle, 
and in fact does not lie in the word 
THERE at all. You don't discover this 
one until you have crashed many 
many times. Recall the definition of 
@-T and !-T was: 

: @-T THERE @ ; 

: !-T THERE ! ; 
Well, 1023 out of 1024 times this will 
work just fine. You see if we call 
THERE with a Target address that is 
congruent to 1023 modulo 1024, then 
THERE will return the address of the 
last byte in a block buffer. Since @ 
and ! act on 2-byte, 16-bit entities, the 
wrong results will be read or written. 
Rule of usage for THERE is that it 
takes a Target Byte Address and re- 
turns a Host Byte Address. Only a 
single byte address is returned. There 
is no guarantee that Target Address + 
1 maps into Host Address + 1 . That is 
a false assumption on the user's part. 
Anyway, how do we fix it? It really is 

Continued 



Proceedings of the Rochester 
Forth Applications Conferences 

• The Institute for Applied Forth Research, Inc. now has available the first two, in a series, of conference 
proceedings on Forth and its application. Many of these papers, especially in the areas of floating point, data 
structures and relational data bases, have been cited by other authors. 

The 1982 Rochester Forth Conference on Data Bases and Process Control includes papers on data bases, 
process control, machine independence, project management, data structures, and mathematics. Working 
group reports cover Forth techniques, file management, virtual machines, and memory mapping. Applications 
range from music synthesis to the real time control of a satellite data base, and a manager's view of Forth in 
industrial process control. The Forth programming style used in non-Forth environments is also covered. The 
Proceedings is 31 7 pages with over 40 papers. 

The 1981 Rochester Forth Standards Conference contains papers commenting upon the 79-Standard. Some of 
these papers were precursors to the Forth-83 proposed standard. Additional sections describe implementing 
Forth, data structures, vocabularies, and applications. The working group reports discuss Forth techniques, file 
systems, floating point, virtual machines and multitasking. The Proceedings is 378 pages with over 50 papers. 

• These Proceedings may be purchased for $25 apiece, which includes shipping, or $35 overseas which covers 
handling and shipping by Air, from: 

Mountain View Press, Inc., P.O. Box 4656, Mountain View, CA 94040, (415)-961-4103 

Ordering information: 

Check, MoneyOrder (payable to MOUNTAIN VIEW PRESS, INC.), VISA, MasterCard or COD's accepted. No billing orunpaid 
PO's. California residents add sales tax. Foreign orders, pay in US funds on US bank. 

• The Proceedings are also available from the University of Rochester Bookstore. 
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1983 ROCHESTER FORTH APPLICATIONS CONFERENCE 

June 7 through June 11, 1983 
University of Rochester 
Rochester, New York 

The third Rochester Forth Applications Conference will be sponsored by the Institute for Applied Forth 
Research, Inc., and hosted by the University of Rochester's Laboratory for Laser Energetics. This year's 
conference has a format similar to that of previous Rochester conferences, with invited speakers focusing on 
an area of particular interest. This year's topic is robotics, which embraces many areas, including mechanical 
and electrical engineering, vision, artificial intelligence, computer networking, and automated manufacturing. 
Six invited lecturers will address the use of Forth in factory automation, the design of a useful robotic control 
language, teaching robotics and Forth, and expert systems which provide direction to autonomous robots. 
The series will cover the evolution of Forth from telescope control through the precision multi-axis camera 
controllers used in Hollywood to state-of-the-art robotics and applied artificial intelligence research. 

In addition to one day of invited lecturers, there will be three days of oral presentations, posters, and 
demonstrations, as well as working groups on specific topics of Interest. All sessions will be held In the Wilson 
Commons at the University of Rochester. 

The registration fee of $300. covers all sessions, activities, meals, and the 1983 Conference Proceedings. 
Students may register for $1 50. Attendees have the option of student dormitory housing, at the rate of $58 
double and $80 single for the duration of the conference. A list of nearby motels Is also available. However, 
those people staying on campus will find a car unnecessary, as there will be a shuttle to the airport and the 
train station. Campus parking permits are available for $.75/day. The University Health Service facilities are 
also available for a single fee of $4 at registration. 

For more information, please contact: Diane Ranocchia 

Institute for Applied Forth Research, Inc. 
70 Elmwood Avenue 
Rochester, New York 14611 
716-235-0168 

REGISTRATION FORM 
Please return by May 1 5, 1 983 

Telephone: 



Name: 

Address: 



Are you planning on giving a: 10-20 minute talk? 

poster? 

demonstration? 

If you are, we should have your 200-word abstract by April 1 5. 

Registration fee: $300 ($150 for students) 

University housing: yes no 

single $80, double $58 
To stay over the night of the 1 1 th, add $1 5 



If you chose double, who Is your roommate? . 
(Roomates will be assigned if not indicated.) 



Amount enclosed: {Please make checks payable to the Rochester Forth Conference.) 
There is a vegetarian meal option. Check if desired. 



Mail registration to: 



Rochester Forth Conference 
70 Elmwood Avenue 
Rochester, New York 14611 
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Meta Compiling I 
(Continued) 

quite simple; namely, we must con- 
struct @ and ! out of C@ and C!, 
which only operate on byte addresses, 
not word address. 

At this point we get into a small 
mess because many microcomputers 
are **byte-swapped," meaning that for 
a 16-bit word, the low order 8-bit half 
is stored first. The 8080 and 6502 are 
prime examples of byte-swapping ma- 
chines. The newer 68000 computer is 
an example of a nonbyte-swapping 
machine. Anyway, to construct @ and 
! out of C@ and C! we must be aware 
of the byte-swapping. Let's suppose 
we are on a byte-swapped machine, 
and let's take a look at how to imple- 
ment @. I will leave the implementa- 
tion of ! as an exercise. Consider: 
: @-T ( target-addr — value ) 
DUP C@-T ( addr low ) 
SWAP 1 + C@-T ( low high ) 
256 « + ( hilo ) ; 
Notice that only C@-T is used, so our 
rule of useage is not violated. This is 
rather slow on most machines because 
of the multiply, but it will certainly 
work. What would be nicer is to define 
a CODE word, say FLIP, which ex- 
changes the high and low halves of a 
16-bit word. Then we could replace 
the 256 m phrase with FLIP and it 
would be much faster. If the machine 
were not byte-swapped then we would 
place the FLIP or the 256 m after the 
first C@-T instead of the second. See 
if you can implement !-T in an 
analogous way. 

What we have really done is imple- 
ment a disk resident virtual memory 
system. It turns out to be very useful 
in many applications, not just Meta 
Compilation. Any time you need a 
very large array that will not fit in 
memory, the same technique will 
work. Next time we will look deeper 
into the Meta Compiling process and 
address the issue of how to actually 
generate the Target Image Code, now 
that we have a place to put it. Until 
then, good luck and may the FORTH 
be with you. 

Henry Laxen is Chief Software 
Engineer for Universal Research, 
150 North Hill Drive, if 10, Brisbane, 
CA 94005, specializing in the develop- 
ment of portable computers. 



New 
Product 

Announcements 

A FULL-SCREEN EDITOR for DISK 
and MEMORY 
PLUS 

8080/Z80 fIg-FORTH for CP/M 
and CDOS Systems 

The full screen editor allows use of 
terminals that transmit and receive 
ESCAPE sequences. Reverse video, 
blinking and half-intensity are also 
used, but provisions are made for ter- 
minals lacking these features. 

All control characters show as ** " 
and any character higher than 7E 
HEX shows as ** (You may change 
these defaults if you prefer.) 

This editor also has the unique abil- 
ity to VIEW AND MODIFY MEM- 
ORY using all the full screen edit func- 
tions, (except **LINE-INSERT" and 
"LINE-DELETE" which are disk 
related.) Using the "NEXT-PAGE," 
"PREV-PAGE" and "PAGE-EDIT" 
function keys you may skip or browse 
thru memory (including the running 
operating system) a full page at a time, 
and change any memory location to 
any value desired. 

The system consisting of the full 
screen editor along with the fig- 
FORTH model and many additional 
fig-FORTH screens is delivered on 
TWO diskettes. The first disk, read- 
able by CP/M or Cromemco CDOS, 
contains the 8080 FIG source hsting 
and an enhanced version in ZILOG 
Z80 mnemonics, with FORTH.COM 
files for Z80 & 8080 processors and a 
special one for Cromemco 3 1 02 
terminals. 

The second disk contains FORTH 
readable screens including the exten- 
sive full-screen editor for disk and 
memory. This disk also has I/O port 
dump and traditional formated mem- 
ory dump words plus many items pub- 
lished in FORTH Dimensions, includ- 
ing a FORTH TRACE utility, a model 
database handler, an 8080 
ASSEMBLER and a recursive decom- 
piler. 

This entire work is placed in the 
public domain in the manner and 
spirit of the work upon which it is 
based. Copies may be distributed 
when proper notices are included. The 



two disks and a copy of the fig- 
FORTH Installation Manual are $65. 

Contact: Dennis Wilson, Aristo- 
telian Logicians, 2631 East Pinchot 
Avenue, Phoenix, AZ 85016 
(602)956-7678, 

CP/M is a copyright of Digital Research, Inc. 
CDOS is a copyright of Cromemco, Inc. 
ZILOG is a copyright of ZILOG, Inc. 



FORTH/COMM 

FORTH/COMM is a software 
package of high level FORTH routines 
which transfer information to and 
from FORTH systems while insuring 
the integrity of data. The features in- 
cluded in the package are 

• Pre-installed drivers for IBM/PC, 
Apple Comm Card, CP/M 

• l\vo levels of capabiUty: 

Level 1— IVansmit FORTH text 
screens with handshaking 
Level 2— TVansmit FORTH text or 
raw binary screens with error detec- 
tion and retransmission 

• Routines for both sending and 
receiving 

• Programs will not "hang" during 
data transfer 

• Dumb terminal program included 

• Remote operation can be achieved 
with the dumb terminal program 
These routines have proven to be 

very reUable under a wide variety of 
conditions. Extra care has been taken 
to minimize the number of control 
characters to avoid interference with 
operating system codes. For example, 
the check word and screen sequence 
number are sent as a string of 4 ASCII 
hex digits. Idle time is minimized by 
having the sending routine fetch the 
next screen to be transmitted while the 
receiving routine is storing the last 
screen on disk. 

FORTH/COMM includes all source 
code, manual, and program disk post- 
paid for $75. 

Specify one of the following disk 
formats: 

(FORTH-79 and fig-FORTH with 
1024-byte buffers) 

• 8 ' CP/M— FORTH screens and 
file of FORTH screens 

• 5" PC-DOS— FORTH screens and 
file of FORTH screens 

• 5 " Apple 3.3— FORTH screens 
Contact: Ren Curry, Curry Associ- 
ates, PO. Box 11324, Palo Alto, CA 
94306, (415)322-1463. 
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Call For Papers 



5th FORML Conference 



November 23-25, 1983 
Asilomar Conference Center 
Pacific Grove, California, U.S.A. 

The 5th Annual FORML (FORTH Modification Labora- 
tory) Conference will be held November 23-25, 1983 at the 
Asilomar Conference Center, Pacific Grove, California, 
U.S.A. FORML is a forum for sharing and discussing new 
proposals intended to benefit FORTH. It is not intended for 
beginning or casual FORTH programmers. 

Registration includes a comfortable room, meals, confer- 
ence attendance and notebooks containing the papers submit- 
ted. Attendees who are also contributors to the conference will 
receive first priority. A limited number of guests (family or 
friends not attending the conference) can be accomodated. 

Topics presented should focus on guiding the evolution of 
FORTH. Compliance to a standard FORTH is recommended 
but not required. The following Ust suggests topics for presen- 
tations: 

Hardware FORTH Implementations; 

FORTH engines, architecture, instruction sets, single chip integra- 
tion, p.c, board processors, microprogramming, coprocessors, 
hardware stack add-ons, ROM-chip projects. 



Large Address Space Environments: 

32-bit addressing, segmentation, memory mapping, extended ad- 
dressing, bank switching. 

Multiprogramming Architectures: 

Approaches, multiuser, multitasking, interrupt handling, memory 
management, task control, intertask communication and coor- 
dination, UNIX-like pipes. 

Nucleus Variations: 

Virtual machine, threaded code techniques, virtual execution, 
relocation. 

Operating System Environments: 

Native architectures, device drivers, guest of other operating sys- 
tems, file system interfaces. 

System Generation Techniques: 

Defining words, compiler writing systems, metacompilation varia- 
tions. 

Program Development Methodologies: 

Problem analysis techniques, design criteria, style, coding stan- 
dards, tools, team programming, documentation, training, quality 
control and evaluation. 
Applications: 

Process control, real-time techniques, robotics, scientific calcula- 
tions, matrix operations, simulation, business applications, file 
systems, relational data base systems, other languages. 
Abstracts for presentations should be no longer than 100 
words and must be received by September 6, 1983. To obtain 
registration information and an author's kit please write to: 
FORML 
P.O. Box 51351 
Palo Alto, CA 94303 
U.S.A. 



I proFORTH COMPILER 

8080/8085, Z80 VERSIONS 

• SUPPORTS DEVELOPMENT FOR DEDICATED APPLICATIONS 

• INTERACTIVELY TEST HEADERLESS CODE 

• IN-PLACE COMPILATION OF ROMABLE TARGET CODE 

• MULTIPLE, PURGABLE DICTIONARIES 

• FORTH-79 SUPERSET 

• AVAILABLE NOW FOR TEKTRONIX DEVELOPMENT SYSTEMS - $2250 

2 MICROPROCESSOR^BASED PRODUCT DESIGN 

• SOFTWARE ENGINEERING 

• DESIGN STUDIES — COST ANALYSIS 

• ELECTRONICS AND PRINTED CIRCUIT DESIGN 

• PROTOTYPE FABRICATION AND TEST 

• REAL-TIME ASSEMBLY LANGUAGE/proFORTH 

• MULTITASKING 

• DIVERSIFIED STAFF 



MICROSYSTEMS, INC. 

(213) 577-1471 

2500 E. FOOTHILL BLVD., SUITE 102, PASADENA, CALIFORNIA 91107 
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THE FORTH SOURCE 



TM 



MVP-FORTH - A Public Domain Product 

MVP-Forth is fig-FORTH updated to the FORTH-79 Standard Required 
Word Set. The source is public domain. Included are an editor, FORTH 
assembler, tools and utilities, making it compatible with the instructional 
book, Starting FORTH. Except for hardware dependencies, all high level 
FORTH is transportable between all systems. Modificatior>s and exten- 
sions can be simplified through the use of MVP-FORTH Programming 
Aids and Meta and Cross Compilers. 

MVP-FORTH Books - A Series 

□ Volume 1, All about FORTH by Haydon. MVP-FORTH 



glossary with cross references to fig-FORTH, Starting 
FORTH and FORTH-79 Standard. Ed. 



$25 



□ Volume 2, MVP-FORTH Assembly Source Code. Includes 
CP/K/^f IBM-PC® , and APPLE® listing for kernal $20 

C Volume 3, MVP-FORTH Math & Floating Point Extensions 
by Koopman. $25 

MORE COMING! 

MVP-FORTH Software - A Transportable FORTH 

□ MVP-FORTH Programmer's Kit including disk, documen- 
tation, Volumes 1 & 2 of MVP-FORTH Series (All About 
FORTH, 2"d Ed. & Assembly Source Code), and Starting 
FORTH. Specify CP/M, IBM-PC. TRS-80/1® or 3, TRS 
Color Computer or APPLE. $1 50 

□ MVP-FORTH Cross Compiler for CP/M Programmer's Kit. 
Can also generate headerless code for ROM or target 
CPU $300 



□ MVP-FORTH Meta Compiler for CP/M Programmer's kit. 
Use for applicatons on CP/M based computer. Includes 
public domain source $1 50 

□ MVP-FORTH Fast Floating Point for APPLE Programmer's 
Kit. Includes 951 1 math chip on board with disk and 
documentation. $400 

□ MVP-FORTH Programming Aids for CP/M, IBM or APPLE 
Programmer's Kit. Extremely useful tool for decompiling, 
callfinding, and translating. $150 

□ MVP-FORTH by ECS Software for IBM-PC or ATARI® 
400/800. Standalone with screen editor. License required. 
Upgradeable $1 00 

□ MVP-FORTH by ECS Software for IBM-PC or ATARI 
400/800. Enhanced with color animation, multitasking, 
sound, utilities, and unlimited run time license. $1 75 

□ MVP-FORTH Professional Application Development 
System (PADS) for CP/M, IBM-PC, or APPLE. A three level 
integrated system with complete documentation. Complete 
system for IBM. CP/M, or APPLE. Includes 3 below $400 

□ MVP-FORTH PADS enhanced virtual system $1 50 

□ MVP-FORTH PADS Programming Aids $1 50 

□ MVP-FORTH PADS Meta Compiler $1 50 

★ MVP-FORTH operates under a variety of CPU's, computers, and 
operating systems. CP/M® disks can be supplied 8", SS/SD, 3740 
format or 5V4 for Osborne® Northstar® Micro Decisions® Kaypro® or 
H89/Z89® Specify your computer and operating system. 



FORTH DISKS 

FORTH with editor, assembler, and manual. 



FORTH MANUALS, GUIDES & DOCUMENTS 



□ 


APPLE by M.M. 


$100 


□ NOVA by CCI 


$100 


□ 


APPLE by Kuntze 


$90 


□ TRS-80/1® by N.S. 


$90 




ATARI® val FORTH 


$60 


□ Z80 by L.M. 


$50 


□ 


CP/M® by M.M. 


$100 


□ 8086/88 by L M 


$100 


□ 


HP-85 by Lange 


$90 


□ VIC FORTH byHES, 


VIC20 




IBM-PC® by L.M. 


$100 


cartridge 


$60 



Extensions for L.M. 
IBM,Z80. and 8086 
□ Software Floating 



Point 


$1 


00 


□ 8087 Support 






(IBM-PC or 8086) 


$1 


00 


□ 951 1 Support 






(Z80 or 8086) 


$1 


00 


□ Color Graphics 






(IBM-PC) 


$1 


00 


n Data Base 






Management 


$200 


Requires LM FORTH 


disk. 




specify IBM, Z80. or 


8086 





Enhanced FORTH with: F-Floating Point, G-Graphics, T-Tutorial, 
S-Stand Atone, M-Math Chip Support, MT-Multi-TaskIng, X-Other 
Extras, 79-FORTH-79. 

□ APPLE by M.M., a 
F, G,&79 $140 

□ ATARI by PNS, F.G, & X. $90 

□ CP/M by M.M., F & 79 $140 

□ Apple, GraFORTH by 
Insoft $75 

□ iBM-PC, PolyFORTH by Rl 
F, G, S, M, MT, &X $300 

□ Multi-Tasliing FORTH by 
S.L., CP/M, X&79 $395 

□ TRS-80/1 or III by M.M.S. 
F, X, &79 $130 

□ TUTORIAL by L & H.8"CP/M 
includes Starting FORTH $95 

CROSS COMPILERS Allow extending, modifying and compiling for 
speed and memory savings, can also produce ROMable code. 
• Requires FORTH disk. 

□ CP/M $300 □ IBM» 

□ TRS-80/1 $300 □ Z80« 

□ Northstar® $300 □ Apple I 

□ 8086* $300 

□ fig-FORTH Programming Aids for decompiling, callfinding, 
and translating. Specify CP/M, IBM-PC, 8086, Z80, or 
Apple $1 50 

Key to vendors: M.M. MicroMotton 

Rl. FORTH Inc. M.M.S. Miller Microcomputer Services 

L & H Laxen and Harris N.S. Nauticus Systems 

L.M. Laboratory Microsystems S.L. Shaw Labs 

Jupiter Ace Computer - Z80 FORTH micro code - $1 50 



□ ALL ABOUT FORTH by 

Haydon. See above. $25 

□ FORTH Encyclopedia by 
Derick & Baker. A complete 
programmer's manual to fig- 
FORTH with FORTH-79 
references. Flow charted, 2"^ 
Ed. $25 

□ FORTH Encyclopedia 
Pocket Guide $7 

□ And So FORTH by Huang. A 
college level text. $25 

□ FORTH Programming by 
Scanlon $1 7 

□ FORTH on the ATARI by E. 
Floegel $8 

□ Starting FORTH by Brodie. 
Best instructional manual 
available, (soft cover) $18 

□ Starting FORTH (hard 
cover) $22 

□ 1980FORMLProc. $25 

□ 1981 FORML Proc 2 Vol $40 

□ 1982 FORML Proc. $25 

□ 1981 Rochester FORTH 
Proc. $25 



$25 
$25 

$21 
$12 

$20 



1982 Rochester FORTH 
Proc. 

A FORTH Primer 
Threaded Interpretive 
Languages 

AIM FORTH User Man 
APPLE User's Manual 

MicroMotlon 
METAFORTH by Cassady 
Meta compiler in 8080 
code $30 
Systems Guide to fig- 
FORTH $25 
Caltech FORTH Manual $12 
invitation to FORTH $20 
PDP-11 User Man. $20 
CP/M User's Manual, 
MicroMotion $20 
FORTH-79 Standard $15 
FORTH-79 Standard 
Conversion $1 

Tiny Pascal fig-FORTH $10 
NOVA fig-FORTH CCI $15 
Installation Manual 
fig-FORTH $1 5 



$300 
$300 
11+ $300 



Source Listings of fig-FORTH, for specific CPU's and computers. The 
Installation Manual is required for implementation. Each $15 

□ 1802 □ 6502 □ 6800 □ AlphaMicro 

□ 8080 □ 8086/88 □ 9900 □ APPLE li 

□ PACE □ 6809 □ NOVA □ PDP-1 1 /LSI-1 1 

□ 68000 □ Eclipse □ VAX □ Z80 

Ordering Information: Check, Money Order (payable to MOUNTAIN VIEW PRESS, 
INC.). VISA, MasterCard or CCD's accepted. No billing or unpaid PC's. California 
residents add sales tax. Shipping costs in US included in price. Foreign orders, pay 
in US funds on US bank, include for handling and shipping by Air: $5 for each item 
under $25, $1 for each Item between $25 and $99 and $20 for each item over 
$1 00. Minimum order $1 0. All prices and products subject to change or withdrawal 
without notice. Single system and/or single user license agreement required on 
some products. 

DEALER & AUTHOR INQUIRIES INVITED 



MOUNTAIN VIEW PRESS, INC. 

PC BOX 4656 MOUNTAIN VIEW, OA 94040 (415)961-4103 
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Technotes 



+ BUF BUG 

David Cromley 
Cheyenne, Wyoming 

I have found a bug in FLUSH (fig- 
FORTH Rell Nov, 1980). 
I suggest for SCR#92 line 4: 

[LIMIT / 1+ ] (No. of BUFFS +1) 

The present definition fails when 
PREV points to the buffer after USE, 
and this PREV buffer has been 
updated. 



For example: m I #2 I ^^3 



4 ♦ 
USE PREV 

Presently, FLUSH will call BUFFER 
4 times. USE will be, for these four 
times: 1, 3, 4, and 1. Buffer 2 will be 
missed. 

Yes, this is a design error In the in- 
terest of trying to keep the most re- 
cently referenced block in RAM buff- 
er, it may occasionally not be correctly 
FLUSHED. The culprit is + BUF and 
it's used in BLOCK and BUFFER. 
Your solution is one of several now in 
use. 

Most vendors who follow the FIG 
Model have corrected this and several 
other problems (carry problems in 
U m and Ul, expanding buffer size to 
1024 bytes and Y register range in 
enclose;. These updates point out 
the advantage of software products 
with vendor support, additional test- 
ing and review. The self installed FIG 
system has had remarkable accep- 
tance, but it cannot supplant the 
broader resources of commercial 
offerings. —Bill Ragsdale 

Bit Array and Manipulations 

Timothy Huang 

Bit manipulation is one of the most 
useful techniques in microcomputer 
programming, particularily for hard- 
ware controls and graphics, for which 
FORTH is especially good. However, 
when I looked back through all the 
FORTH Dimensions issues, I failed to 
find any such program pubHshed. 
Well, here is one that I wrote a couple 
of months ago. 



The main program is in Screen 117 
with comments a la Henry Laxen. You 
should not have any problem under- 
standing or using it. The only suppor- 
tive word is 2 , which is defined in 
high level in Screen 116. This word can 
be and should be re-written in low 
level, because it is quite useful and 
time critical. 

The only comment that should be 
added to the defining word BIT- 
ARRAY is that at compiUng time [time 

2] , if the < number of bits > 

cannot be evenly divided by 8, then it 
will reserve up to the next byte. For 
example: 

27 BIT-ARRAY TEST 

will reserve and initialize to zero 4 



SCR # 116 



bytes (32 bits) TEST bit array, even 
though the last 5 bits in the array's last 
byte are insignificant. Also, at execu- 
tion time [time 3], there is no range 
check. It is supposed to be the pro- 
grammer's responsibility to know 
what he/she is doing. 

Screen 118 provides four bit mani- 
pulation words. The only comment 
that I would like to add here is the 
name of these words. BIT-ON , BIT- 
OFF , and BIT-TOGGLE are perhaps 
not as good as ON , OFF , and 
TOGGLE. You really should read Mr, 
Henry Laxen's article (FORTH Di- 
mensions, Vol. 4/4). Good naming 
principles are an essential part of good 
FORTH. 

Continued 



TDH250CT82 



\ 2" 
1 

2:2" (n 2*n) \raise to 2's n-th power 

3 DUP 0= IF DROP 1 

4 ELSE 1 SWAP DO 2* LOOP THEN ; 

5 ;S 

6 (P 2" will yield a number which is the n-th power of 2.) 
7 

8 

SCR # 117 




1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



\ BIT-ARRAY 

: BIT-ARRAY 

<BUILDS 



TDH250CT82 



DOES> 



\def ining word 

(number of bits ; reserved and 

8 /MOD SWAP IF 1 ELSE THEN + 
HERE OVER ERASE ALLOT 

{index #.of .bit.of fset addr ) 

SWAP 8 /MOD ROT + ; 



initial.) 



BIT-ARRAY defines a family of bit arrays. At the bit 
array creation time [time 2], it takes the form; 

number .of .bit, wan ted BIT-ARRAY <name> 
At the execution time [ use the <name> bit array; 
time 3 ], it takes the form: 

index <name> [index # .of .bit.of fset addr ]) 



SCR #118 



\ BIT-ON BIT-OFF BIT? BIT-TOGGLE 

1 : BIT? { index <name> 1/0 ) \ 1 = on 

SWAP 2* AND 0== 0= ; 



TDH250CT82 



= off 



BIT-ON ( index <name> — 
DUP >R C@ SWAP 



) 



\ set index bit on 
OR R> C! ; 



BIT-OFF ( index <name> ) \ turn index bit off 

8 DUP >R C@ SWAP 2" 255 XOR AND R> C! ; 

9 
10 
11 

12 ;S 

13 {P BIT? yields the bit status. BIT-ON sets the bit. BIT-OFF 

14 sets the bit off. BIT-TOGGLE toggle the bit. Use the form: 

15 index <name> BITxxxxxx ) 



BIT-TOGGLE ( index <name> ) \ toggle index bit 

2DUP BIT? IF BIT-OFF ELSE BIT-ON THEN ; 



Victor-FORTH 



By Timothy Huang 



30 September 1982 
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Technotes (Continued) 



Circular Lists 

C.L. Stephens 
COMSOL Ltd. 

Editor's Note: The following technote 
was originally published in England as 
Computer Solution Ltd, 's "poly- 
FORTH Note 19, ''As such it contains 
a few references to a multiprogram- 
med system. These references may be 
omitted. 

Circular lists are a very convenient 
mechanism and once implemented can 
be used to generate stacks or FIFO 
buffers. The programs specified here 
are designed to set up and manipulate 
any number of circular lists. Each list 
may have up to 255 entries (or slots) 
and each slot may be up to 255 bytes 
long. 

The word CLIST creates a named 
list with the following structure and 
ILIST initializes it. 

RAM in Host or ROM in Target 



HEADER (Not in Target Systems) 



Sim SIZE n (1 byte) 



NUMBER OF SLOTS (1 byte) 



ADDRESS OF LIST 



RAM in Both Host and Tkrget 



NUMBER OF ENTRIES (M) 



ADDRESS OF CURRENT TOP 



ADDRESS OF NEXT BOTTOM 



SLOT 1 n bytes 



SLOT 2 n bytes 



SLOT M n bytes 

The words +TLIST and -i-BUST 

add entries at the top of the list, 
-TLIST and -BLIST remove entries. 

In all cases the words return the ad- 
dress of the first byte in the slot allo- 
cated or to be released. The user must 
then move the required data into or 
from the slot. 

Continued 



120 LIST 




1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



C CIRCULAR LIST WORDS 
CODE C+! W POP H POP 



W LDAX L ADD W STAX 



CLS 30/ 9/81 ) 
NEXT JMP 



CTOP 2+ e 1+ ; 

NXTBOT 2+ e 3 + ; 

STOL 2+ @ 5 + ; 

ENOL DUP Ce OVER 1+ 1- 



• SWAP STOL + 



(current top) 
(next bottom) 
(start of list) 
(end of list) 



+LIST SWAP 2+ e C+1 ; 

?SPACE DUP 1+ Ce SWAP 2+ @ C@ 



(changes the list count) 
• ; (how many left in?) 



: CLIST CREATE 2DUP SWAP 256 * + , (creates a list) 

HERE 2+, (must be change to THERE, for target compile) 
• 5 + ALLOT (reserves space) DOES> ; 

91 LOAD 92 LOAD 



121 LIST 

( CIRCULAR LIST WORDS CLS 17/ 9/81 ) 

1 : ILIST OVER 2+ e C! DUP STOL SWAP 2DUP NXTBOT ! CTOP! ; 

2 (initialise the list) 
3 

4 : WSPACE (wait for space in the list) 

5 BEGIN DUP 7SPACE NOT IF PAUSE AGAIN DROP ; 
6 

7 : WENTRY (wait for an entry in the list) 

8 BEGIN DUP 2+ ? C@ NOT 

9 IF PAUSE AGAIN DROP ; 
10 

11 : +CIRCLE OVER ce + 2DUP SWAP ENOL > 

12 IF DROP DUP STOL THEN SWAP ; 
13 

14 : -CIRCLE OVER C@ - 2DUP SWAP STOL < 

15 IF DROP DUP ENOL THEN SWAP ; 



122 LIST 

( CIRCULAR LIST WORDS CLS 18/ 9/81 ) 

1 : TLIST DUP WSPACE 

2 DUP CTOP @ -CIRCLE 

3 2DUP CTOP i 1 +LIST ; 
4 

5 : -TLIST DUP WENTRY 

6 DUP CTOP @ 2DUP +CIRCLE 

7 CTOP ! SWAP -1 +LIST ; 

9 : +BLIST DUP WSPACE 

10 DUP NEXTBOT @ 2DUP +CIRCLE 

11 NXTBOT ! SWAP 1 +LIST ; 
12 

13 : -BLIST DUP WENTRY 

14 DUP NXTBOT g -CIRCLE 

15 2DUP NXTBOT ! -1 +LIST ; 



123 LIST 

( CIRCULAR LIST WORD TESTS CLS 29/ 9/81 ) 

1 10 4 CLIST LOG 

2 LOG ILIST 

3 VARIABLE LOCAL 2 ALLOT 

4 : DL CR LOG 1+ C? DUP . 3 SPACES LOG C@ DUP . 3 SPACES 

5 LOG 2+ ? • * ( leaves number of entries for dump ) 

6 CR LOG ?SPACE . 3 SPACES LOG CTOP ? 3 SPACES LOG NXTBOT ? 

7 CR LOG STOL SWAP DUMP 

8 : FILL 4 DO 2DUP I + C! LOOP 2DR0P ; 

9 : V+T LOG +TLIST FILL ; 

10 : V+B LOG +BLIST FILL ; 

11 : SHOW LOCAL 4 MOVE ( moves the data to a local buffer ) 

12 4 DO LOCAL I + C@ . LOOP ; 

13 : V-T LOG -TLIST SHOW ; 

14 : V-B LOG -BLIST SHOW ; 
15 
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Technotes (Continued) 



FORTH Classes 

at 

Humboldt State University 
Eureka, California 
by 

Kim Harris 

People, Computers, And 
FORTH Programming 

5 Day Introductory Class 
Date: June 20-24, 1983 
Cost; $100 including 3 quarter hours 

of academic credit 
Daily hands-on exercises 
Outline: 

I. The Forth development system 
II. Developing applications 

For people who want enough knowledge 
and experience with Forth to write applica- 
tion programs and understand some of the 
internal workings of a Forth system. Stu- 
dents should have some experience with 
one other computer language. Knowledge 
of assembly language is not required. 



Using FORTH Effectively 

5 Day Advanced Class 

Date: June 27 - July 1, 1983 

Cost: $150 including 3 quarter hours 

of academic credit 
Daily hands-on exercises including a 
meta-compilation workshop. 
Outline: 

I. Forth system internals 
11. Program development techniques 

For people who want an in-depth under- 
standing of the generation and internal 
operation of Forth systems. Students 
should have mastered an introductory 
Forth course or have 6 months experience 
with Forth, have mastered Starting Forth, 
and have knowledge of some assembly lan- 
guage and operating system principles. 

Registration: 

Send check or money order to: 
Office of Continuing Education 
Humboldt State University 
Areata, CA 95521 
Include the course title(s) and the number 
of people registering. Enrollment will be 
filled on a first-received, first-served basis. 
Your payment will be returned if a course 
is full. You will receive a registration pac- 
ket with additional information. Direct 
questions to the above office; their phone 
is (707) 826-3711. Ask for Claire Duffey. 



These words assume a multi-task 
system and will wait if there is no 
space or no entry respectively. In 
single-task systems or emergency over- 
rides 7SPACE can be used to stop 
lockouts. 

In a multi-task system it is impor- 
tant that a slot once allocated or re- 
leased should be filled or emptied 
before the task executes a PAUSE, MS 
or I/O as other tasks might otherwise 
overwrite the areas. 

Block 123 is a demonstration pro- 
gram that manipulates a list called 
LOG which has 10 entries with 4 bytes 
per entry. 

DL displays the whole contents of 
this list. (May not be used multi 
tasking.) FILL and SHOW are used to 
fill the slots and display their contents 
respectively. 

V+T and V + B take a value off the 
stack and put it into each of the bytes 
allocated to a slot requested at the top 
and bottom of the list. 

V-T and V-B take a slot off the top 
or bottom of the list and prints its 
contents. 

A typical appUcation of these words 
is to have a terminal task driving a 
slow device such as a printer taking its 
data from the top of a circular list. 
Any tasks that wish to output mes- 
sages to the printer may either add 
their lines to the bottom of the list or 
in a emergency may add them to the 
top of the list. 

: RUN-LOG TTY ACTIVATE 
BEGIN CR LOG-FILE 
-TLIST 64 -TRAILING 
TYPE END; 
And in the other tasks this puts a local 
buffer into the list. 
BUFFER LOG-FILE 

+ BUST 64 CMOVE 



RLOAD Program Package Load 

C.L. Stephens 
COMSOL 
Chertsey, England 

A problem frequently encountered 
when producing program packages is 
the need to move blocks to different 
areas of the disk in order to avoid con- 
flicts with blocks already occupied. 
The FORTH word — > which loads 



the next block suffers from the disad- 
vantage of consuming six bytes of 
return stack each time it is used. It also 
distributes the loading information 
across a range of blocks making 
changes difficult. 

The preferred mechanism consists 
of an initial "Load Block" which acts 
as a directory to the application and as 
a central point for substitutions. How- 
ever, this block, if it uses LOAD, will 
have to be extensively edited if moved 
to another system in which those 
blocks are already in use. 

The word RLOAD takes a value 
from the stack, adds it to the number 
of the block in which the RLOAD is 
situated and then loads the resulting 
block 

: RtOAD BLK @ + LOAD ; 

This allows load blocks such as 

1 RLOAD 2 RLOAD (Device drivers) 
3 RLOAD 4 RLOAD (Control programs) 
5 RLOAD (Test programs) 

An additional benefit of this word is 
that it allows position independent 
documentation. A description of the 
package can be in terms of the relative 
block numbers with a minor change to 
the program listing words allowing 
them to print relative rather than ab- 
solute block numbers. 



This is a very useful technique, I've 
also seen the name + LOAD, which I 
think came from Kim Harris, Al- 
though I speak out against abbrevia- 
tions, I have a word in my own system 
called FH (for 'from here") which 
performs BLK @ + but not LOAD. 
The syntax therefore is 

1 FH LOAD 2 FH LOAD 
as in "one from here, load, *' I fac- 
tored out LOAD because there are 
other things you may want to do, like 
type text strings from disk. In any 
case, note that the argument may be 
positive or negative. 

Finally — > doesn't have to keep 
anything extra on the return stack be- 
cause it doesn't have to re-invoke 
LOAD. It merely must go 

ZERO >IN ! 1 BLK +! 
to jump the interpreter pointers to the 
top of the next block, —Leo Brodie 
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PWS1010 8 Bit CPU Cord (6801), 8K FORTH Firmware 

6K EEPROM, 2K RAM, 16 TTL I/O, RS 232C, programma- 
ble timer, 2K monitor, 8K FORTH firmware includes: edi- 
tor, assembler, high-level interrupt linkage and 
communications protocol. 

PWS1080 16 Bit CPU Card (68008) 16K FORTH Firmware 

2K or 8K EEPROM, 8K RAM, RS 252C, 4 pro- 
grammable timers. Non-multiplexed 
memon/ expansion and waitstate gener- 
ator 16K FORTH firmware includes: moni- 
tor, editor, assembler, high-level 
interrupt linkage and communica- 
tions protocol. 




PWS2010 Interfoce Card, 8K 
extended FORTH firmware 

2 16-bit I/O ports, compatible 
with industry standard optical 
isolation boards, batten/ back- 
up calendarand clock. 2 28-pin 
JEDEC standard memory sock- 
ets for 2K or 8K CMOS, NMOS or 
EPROM memories, software 
readable 8-blt switch. Firm- 
ware options: P-FORTH Stan- 
dard Utilities, P-FORTH PLC 
with Ladder Diagrams or P- 
FORTH Multi-Tasking. 

PWS2020 Interface Card 
2 16-bit I/O ports 

Compatible with industry 
standard optical isolation 
boards. 



FORTH 
BOARDS 

CARD5& 
STUFF 



We're racing into tomorrow to give you 
a new family of control system prod- 
ucts today Our innovative FORTH team 
continues to introduce versatile, pow- 
erful and unique firmware with impor- 
tant advantages: low cost system 
development interactive FORTH lan- 
guage to speed software creation, EE- 
PROM nonvolatile memory and STD 
BUS Interfacing. Look through our new 
FORTH firmware, we know you'll discov- 
er an application for your current or 
future projects. For samples, docu- 
mentation or consultation call one 
of our FORTH team. 



PWS2030 Expansion Memory Board, JEDEC standard 
memory sockets 

Maximum of 64K EEPROM, EPROM or RAM. 

PWS3010 Color Video Graphics Card (TI9918) 

8K FORTH graphics firmware, 256x192 pixels, 15 color 
graphic RS 170 video output, 16K video RAM, ability to 
GENLOCK to external video, JEDEC Stan- 
dard socket for additional firmware. 



PWS9010STD BUS Card Cage 

6 Slots, mother board, integral 
power supply 5 volts at 6 amps ± 
1 2 volts at 1 amp, on/off and cir- 
cuit breaker switch. 



CUSTOM MADE BOARDS 

We will custom make boards to 
your exact application if none of 
the aforementioned boards 
meet your needs. 

CONSULTING 

Our FORTH Team people are ex- 
perts in FORTH based application 
development and are excited to 
be able to share their special 
knowledge with you on a person- 
al basis. 

Watch for new products to come 
in 1983 

5190 west 76th street 
Minneapolis, MN 55455 



P€OPL€UJnR€ 
/V/T€M/ INC. 



(612) 831-0827 -TWX 910-576-1735 



Mike Oran, Hardware 
Engineer 



Andi Marinenko, 
Customer Support 



Gary Winkler, Hardware/ 
Firmware Design Engineer 
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FIG Chapter News 



Potomac Chapter 

At the December 7th meeting we 
heard how Ted Beach, using just a 
baker's dozen of FORTH words, has 
created a simple-minded disk directory 
system that anyone can install in their 
FORTH environment. The word DIR 
will list out the entire directory of 
screens on a FORTH disk, while 
FREE will print out the number of 
unused screens available on the disk. 

One of the most powerful features 
of the directory system is a redefini- 
tion of the FORTH word ' (tick). The 
new tick performs exactly as the stan- 
dard tick, but will also search all avail- 
able disk drive directories for the word 
before issuing an error message. If tick 
finds the word on any disk, it will load 
the associated screen(s) for you! 

Ted demonstrated the system on the 
Radio Shack Color Computer. 

At the January 4th meeting, Steven 
Knowles discussed * 'FORTH in As- 
tronomy." Steve is an astronomer 
who for many years has used FORTH 
on minicomputers. Steve described his 



work with FORTH for data collecting 
and shared his recollections and ideas 
about FORTH. 

Las Vegas Chapter 

The third formal meeting of the Las 
Vegas FIG was held Monday, 8 No- 
vember 1982 at 7 P.M., Valley Bank 
Center, 101 Convention Center Drive, 
Suite 900. 

The main subject of this meeting 
was coding forms. There were free 
handouts of introductory FORTH lit- 
erature, and many FORTH tutorial 
books and articles were available for 
browsing. Also featured was a demon- 
stration of MVP-FORTH on the IBM 
Personal Computer. 

Australia Chapter 

Lance Collins, Secretary 
The Australian Fig Chapter meets in 
Melbourne at the home of the secre- 
tary on the first Friday of each month. 
We have been going since mid- 1981 
and have a core membership of about 
10. We have welcomed about 30 visi- 



tors in 1982. We find it difficult to 
hold new members as there is little 
serious FORTH activity here, and we 
are sometimes embarassed by the 
question, **But what real applications 
are you running in FORTH?" Fortun- 
ately, this is changing and 1983 looks 
most promising for FORTH in 
Australia. 

The availability of FORTH books 
and software is limited here and the 
Chapter has established a comprehen- 
sive library of FORTH books for the 
use of our members. We also make 
available FORTH software, and the 
secretary is an agent for Mountain 
View Press. We have a catalog we send 
to enquirers which describes mainly 
commercial books and software, as we 
have not yet found the resources to 
classify and package the mass of pub- 
lic domain FORTH items we are 
accumulating. 

By the time this is pubhshed there 
may be a Sydney group under way. 
Contact Peter TVegeagle (02)524 7490 
for details. 



JOIN THE APPLICATION 
MIGRATION! 

• PRODUCE MACHINE TRANSPORTABLE CODE. 

• GENERATE ROMABLE/HEADERLESS CODE. 

• FORWARD REFERENCING ALLOWED. 

• PUT FORTH ON OTHER COMPUTERS. 

• PRODUCE EXECUTABLE IMAGE IN RAM OR ON DISK. 

• PRODUCE ADDRESS MAP OF APPLICATION. 

• NO LICENSE FEE OR ROYALTIES ON APPLICATIONS. 



fig-FORTH CROSS-COMPILERS by NAUTILUS SYSTEMS 

Apple, Atari, TRS-80 Model I, Zenith, and Northstar 

fig-FORTH CROSS-COMPILER by LABORATORY MICROSYSTEMS 

CP/M-80, CP/M-86, IBM P.C., and 68000 (requires LAB FORTH at additional cost) 

79-Standard Systems by MOUNTAIN VIEW PRESS 

CP/M-80 

$300.00 + tax and $5.00 shipping and handling 

Apple ts a trademark of Apple Computer, Inc. Atari is a trademark of Atari Computer. TRS-80 is a trademark of 
Tandy, Corp. Zenitti isatrademark of Zenith Radio Corporation. Northstar is a trademark of Northstar Computers. 
IBM is a trademark of International Business Machines, Inc. 




Nautilus Systems 

RO. Box 1098 SANTA CRUZ, CA 95061 
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DESIGNED BY EXPERTS IN THE FIELD OF MICRO-COMPUTERS 
RICHARD ALTWASSER AND STEVEN VICKERS 

Steven Vickers 

Steven gained his degree in Math at King's College, Cambridge, England, and his Ph.D in Algebra at Leeds University. His 
first assignment after school was to create the Sinclair ZX-81 or Timex 1000 8K ROM, and to mWe the ZX-81 manual. Subse- 
quently he wrote most of the ROM for the Sinclair Spectrum or Timex 2000. 

Richard Altwasser 

Richard gained his honors degree in Engineering at Trinity College, Cambridge, England. He joined Sinclair in September 
1980, and was instrumental in the research that led to the development of the Spectrum or Timex 2000. 

Recently these two experts started their own company and developed the Jupiter Ace range of hardware which is based on 
the exciting new language for micro-computers "FORTH". 



For the FORTH enthusiast 

The Jupiter Ace closely follows the FORTH 79 standard with extensions for floating point, sound and 
cassette. It has a unique and rennarkable editor that allows you to list and alter words that have been 
previously compiled Into the dictionary. This avoids the need to store screens of source, allowing the dic- 
tionary itself to be saved on cassette. Comprehensive error checking removes the worry of accidentally 
crashing your programs. 



The Jupiter Ace also features a full-size moving-key keyboard, high 
resolution graphics, sound, floating point arithmetic and 3K of RAM. 
Expandable to 51 K. 



Order Form: 


Product 


Price 


Qty. 


Total 


Send To 

Computer Distribution Assoc. 
56 South 3rd Street 


Jupiter Ace 
16K Ram Pack 


$150 
$ 50 






Oxford, Penna. 19363 


48K Ram Pack 
Par/Ser Interface 


$125 
$100 






Credit Card No. 


Exp. Date . ... ... 

Sfiipping and Handlmg 


$4.95 




Signature 


FD IV/ 6 Total Order 
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Start Your Own FIG Chapter 



What is a FIG Chapter? 

There are two kinds of FIG chap- 
ters: local, and special-interest. Local 
chapters are centered in a city or re- 
gion. Special-interest chapters may be 
non-geographical; they focus on an in- 
terest area such as an application (e.g., 
robotics, telecommunication), or on 
FORTH for a particular computer. 

All chapters must provide a contact 
point, and some form of regular pub- 
lic access (usually meetings). Non- 
geographical chapters will normally 
provide other forms of access, such as 
a newsletter or telecommunications, 
instead of meetings. 



Why Have a FIG Chapter? 

A chapter lets you share informa- 
tion with other FORTH users in your 
geographical or application area. In 
addition, FIG provides several specific 
benefits: 

(A) FIG will list your chapter in 
FORTH Dimensions, so that others 
can find your group. 

(B) FORTH Dimensions will give 
priority to publishing chapter news, 
which can help you make professional 
contacts in the areas of your particular 
interests. 

(C) FIG will occasionally supply 
material, such as meeting handouts or 
tapes, which can serve as a discussion 
topic at local meetings. 

(D) FIG will supply its publications 



at bulk rates; local chapters can sell 
them to raise money, and to provide 
immediate local access to the material. 

(E) Chapters can apply to FIG for 
one-time funding for activities. 

How to Start a FIG Chapter 

To be recognized as a chapter, a 
group must have (1) a contact person, 
(2) regular public access (usually by 
meetings which are open to the 
public), and (3) at least five members 
of FIG. If you don't know five mem- 
bers in your area, FIG can help you 
contact them. If you want to start a 
chapter, send a request for a FIG 
Chapter Kit to the Chapter Coor- 
dinator, FORTH Interest Group, P.O. 
Box 1105, San Carlos, CA 94070. 



Ver. 



2 For your APPLE II/II+ 

The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 

1980). Compare the many advanced features of FORTH— 

79 with the FORTH you are now using, or plan to buy! 

FEATURES OURS OTHERS 

79-Standard system gives source portability. YES 

Professionally written tutorial & user manual 200 PG. 

Screen editor with user-definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 

Both 13 & 16-sector format. YES 

Multiple disk drives. YES 

Double-number Standard & String extensions. YES 

Upper/lower case keypoard input. YES 

LO-Res graphics. YES 

80 column display capability YES 

Z-80 CP/M Ver. 2.x & Northstar also available YES 

Affordable! $99.95 

Low cost enhancement option: 

Hi-Res turtle-graphics. YES 

Floating-point mathematics. YES 

Powerful package with own manual . 

50 functions in alt, 

AM951 1 compatible. 

FORTH-79 V.2 (requires 48K & 1 disk drive) $ 99.95 
ENHANCEMENT PACKAGE FOR V.2 

Floating point & Hi-Res turtle-graphics $ 49.95 

COMBINATION PACKAGE $139.95 
(CA res. add 6% tax; COD accepted) 



MicroMotlon 

12077 WilshireBlwj. # 506 
L.A.,CA 90025 (213)8214340 
Specify APPLE . CP/M or Northstar 
Dealer inquiries invited. 




Version 2 For Z-80, CP/M (1.4 & 2.x), 

& Northstar DOS Users 

The complete professional software system, that meets 
ALL provisions of the FORTH~79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 

OURS OTHERS 



FEATURES 

79-Standard system gives source portability. 
Professionally written tutorial & user manual. 
Screen editor with user-definable controls. 
Macro-assembler with local labels. 
Virtual memory. 

BDOS, BIOS & console control functions (CP/M). 
FORTH screen files use standard resident 
file format. 

Double-number Standard & String extensions. 
Upper/lower case keyboard input. 
APPLE I I/I 1+ version also available. 
Affordable! 

Low cost enhancement options; 
Floating-point mathematics 

Tutorial reference manual 

50 functions (AM951 1 compatible format) 
Hi-Res turtle-graphics (NoStar Adv. only) 

FORTH-79 V.2 (requires CP/M Ver. 2.x). 
ENHANCEMENT PACKAGE FOR V.2: 

Floating point 
COMBINATION PACKAGE (Base & Floating point) 

(advantage users add $49.95 for Hi-Res) 

(CA. res, add 6% tax; COD & dealer inquiries welcome) 



MicroMotion 

12077 Wilshire Blvd. # 506 
L.A.,CA 90025 (213) 821-4340 
Specify APPLE, CP/M or Northstar 
Dealer inquiries invited. 



YES 
200 PG. 
YES 
YES 
YES 
YES 

YES 
YES 
YES 
YES 
$99.95 

YES 



YES 



$99.95 

$ 49.95 
$139.95 
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FORTH-32 

The language for the IBM' PC 



Why use a language which limits your program size to 
64K? Now you can program using the entire IBM®PC 
memory with the FORTH-32™ segment sensing language. 

The FORTH-32™ DEVELOPMENT SYSTEM features 
intermixed 1 6 and 32 bit addressing modes with FORTH-79 
compatibility. DOS interface, full screen editor, assembler, 
decompiler, graphics, CASE verb, and debug. User controlled 
I/O with communications to three parallel and two serial 
ports. Complete video monitor, joy stick, sound, and light pen 
interface. Learn to program in FORTH-32™ in an afternoon 
with our 400 page self-teaching manual. Brochure available. 
$150. 

The QUEST PACKAGE BUILDER UTILITY transforms user 
developed programs into copy-protected marketable 
software packages by building on disk a condensed 
executable image with only those FORTH verbs needed. $50. 

The QUEST floating point and math library provides single 
and double precision. Software version $50. 8087 version 
$50. 

FORTH-32 AND QUEST ARE TRADEMARKS OF QUEST RESEARCH. 
IBM IS A REGISTERED TRADEMARK OF IBM CORPORATION 

= TM 



Quest Research, Inc. 

RO. Box 2553 ■ Huntsville, AL 35804 ■ 205-533-9405 
Toll Free 800-558-8088 
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FIG Chapters 



U.S. 



• ARIZONA 

Phoenix Chapter 

Dennis L. Wilson 
Samaritan Health Services 
2121 £. Magnolia 
Phoenix, AZ 
602/257-6875 



• CAUFORNIA 

Los Angeles Chapter 

Monthly, 4th Sat., 11 a.m. 

Allstate Savings 

8800 So. Sepulveda Boulevard 

Los Angeles 

Phillip Wasson 

213/649-1428 

Northern California Chapter 

Monthly, 4th Sat., 1 p.m. 
FORML Workshop at 10 a.m. 
Palo Alto area. 
Contact FIG Hotline 
415/962-8653 

Orange County Chapter 

Monthly, 4th Wed., 12 noon. 
Fullerton Savings 
18020 Brookhurst 
Fountain Valley 
714/523-4202 

San Diego Chapter 

Weekly, Thurs., 12 noon. 
Call Guy Kelly 
714/268-3100 ext.4784 



• MASSACHUSETTS 

Boston Chapter 

Monthly, 1st Wed., 7 p.m. 
Mitre Corp. Cafeteria 
Bedford, MA 
Bob Demrow 
617/688-5661 after 5 p.m. 

• MICHIGAN 

Detroit Chapter 

Call Dean Vieau 
313/493-5105 



• MINNESOTA 

MNFIG Chapter 

Monthly, 1st Mon. 
MNFIG 

1156 Lincoln Avenue 
St. Paul, MN 55105 
Call Mark Abbot (days) 
612/854-8776 or 
Fred Olson 
612/588-9532 



• MISSOURI 

St. Louis Chapter 
Call David Doudna 
314/867-4482 



• NEVADA 

Las Vegas Chapter 

Suite 900 

101 Convention Center Drive 
Las Vegas. NV 89109 
702/737-5670 



• NEW JERSEY 

New Jersey Chapter 

Call George Lyons 
201/451-2905 eves. 

• NEW YORK 

New York Chapter 

Call Tom Jung 
212/746-4602 



• OKLAHOMA 

Iblsa Chapter 

Monthly. 3rd TUes.. 7:30 p.m. 

The Computer Store 

4343 South Peoria 

TUlsa, OK 

Call Bob Giles 

918/599-9304 or 

Art Gorski 

918/743-0113 

• OHIO 

Dayton Chapter 

Monthly. 2nd lUes. 
Datalink Computer Center 
4920 Airway Road 
Dayton. OH 45431 
Call Gary Granger 
513/849-1483 

• OREGON 

Portland Chapter 

Call Timothy Huang 
9529 Northeast Gertz Circle 
Portland, OR 97211 
503/289-9135 



• PENNSYLVANIA 

Philadelphia Chapter 

Continental Data Systems 
1 Bala Plaza, Suite 212 
Bala Cynwid. PA 91004 
Call Barry Greebel 



•TEXAS 

Austin Chapter 

Call John Hastings 
512/327-5864 



DaUas/Ft. Worth Chapter 

Monthly. 4th Thurs.. 7 p.m. 
Software Automation 
1005 Business Parkway 
Richardson. TX 
Call Marvin Elder 
214/231-9142 or 
Bill Drissel 
214/264-%80 



• UTAH 

Salt Lake Oty Chapter 

Call Bill Haygood 
801/942-8000 



• VERMONT 

Vermont Fig Chapter 

Monthly, 3rd Mon., 7:30 p.m. 
Vergennes Union High School 
Room 210. Monkton Road 
Vergennes, VT 05491 
Contact Hal Clark 
RD n Box 810 
Starksboro. VT 05487 
802/877-2911 days; 
802/453-4442 eves. 



• VIRGINIA 

Potomac Chapter 

Monthly. 1st TUes.. 7 p.m. 
Lee Center 

Lee Highway at Lexington St. 
Arlington. VA 
Call Joel Shprentz 
703/437-9218 eves. 



FOREIGN 



• AU8TRAUA 

Australia Chapter 

Contact Lance Collins 
65 Martin Road 
Glen Iris, Victoria 3146 
(03)292600 

• CANADA 

Southern Ontario Chapter 

Contact Dr. N. Solntseff 
Unit for Computer Science 
McMaster University 
Hamilton, Ontario L8S 4K1 
416/525-9140 ext. 2065 

Quebec Chapter 

Call Gilles Paillard 
418/871-1960 or 
418/643-2561 



• ENGLAND 

English Chapter 

FORTH Interest Group 
38 Worsley Road 
Frimley, Camberley 
Surrey, GU16 5AU. England 



• JARAN 

Japanese Chapter 

Masa Iksaki 
Baba-Building 8F 
3-23-8 Nishi-Shimbashi 
Minato-ku. Tokyo 
105 Japan 

• NETHERLANDS 

HCC-FORTH Interest 
Group Chapter 

F.J. Meijer 
Digicos 

Aart V.D. Neerweg 31 
Ouderkerk A.D. 
Amstel, The Netherlands 

• WEST GERMANY 

West German Chapter 

Klaus Schleisiek 
FIG Deutschland 
Postfach 202264 
D 2000 Hamburg 20 
West Germany 



SPECIAL GROUPS 



Apple Corps FORTH 

Users Chapter 

TWice Monthly, 1st & 

3rd Tlies., 7:30 pm 

1515 Sloat Boulevard, #2 

San Francisco, CA 

Call Robert Dudley Ackerman 

415/626-6295 

Detroit Atari FORTH 

Monthly, 1st Wed. 
Call Tom Chrapkiewicz 
313/524-2100 or 
313/772-8291 

Nova Group Chapter 

Contact Mr. Francis Saint 
2218 Lulu 
Witchita, KS 67211 
316/261-6280 days 

MMSFORTH Users Chapter 
Monthly, 3rd Wed., 7 p.m. 
Cochituate, MA 
Dick Miller 
617/653-6136 
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FORTH System Vendors (by Category) 



(Codes refer to alphabetical listing 
e.gM Al signifies AB Computers, etc.) 



Processors 

1802 CI, C2. F3, F6, L3 

6502 (AIM, KIM, SYM) Rl, R2. SI 

6800 C2, F3, F5, Kl. L3, M6. Tl 

6801 P4 

6809 C2, F3. L3, M6. Sll.Tl 

68000 C2,C4, Dl,El. Kl 

68008 P4 

8080/85 A5, CI, C2, F4, 15, LI, L3. M3, 

M6, Rl, T3 

Z80/89 A3, A5, C2, F4, 13, LI, M2. M3. 

M5, Nl. T3 

Z80000 13 

8086/88 C2. F2, F3, LI, L3, M6 

9900 E2, L3 

Operating Systems 

CP/M A3, A5, C2, F3, 13. L3, Ml. M2, 

M6. T3 

CP/M86 C2 

Computers 

Alpha Micro P3, S3 

Apple A4. F4. 12. 14. Jl. L4, M2. M6. 

02, 03 

Atari M6, P2, Ql, VI 



Cromemco 

DECPDP/LSI-11 

Heath-89 

Hewlett-Packard 85 

Hewlett-Packard 9826/36 
IBM PC 



IBM Other 

KayproII/Xerox820 . 

Micropolis 

North Star 

Nova 

Ohio Scientific 

Osborne 

PetSWTPC 

Poly Morphic Systems 

TRS-80I.II.III 

TRS-80 Color 

Vector Graphics 



Other Products/Services 

Applications 

Boards, Machine 

Consultation 

Cross Compilers 

Products, Various 

Training 



A5. M2. M6 
C2. F3. L2. S3 
M2. M6 

C4 

A8. C2. F3. LI. M5, M6. Q2, S9. 
W2 

L3. Wl 
M2 

A2, M2. S2 
15. M2. PI. S7 
C5 

A6. Bl. C3. Ol. S6. T2 
M2 

Al. A6. B1.C3. 01.S6. T2. T5 
A7 

15. M2, M5. M6, S4. S5. SIO 
A3. A8. F5, M4, Sll.Tl 
M2 



P4 

F3. M3. P4, R2 
C2. C4. N1.P4. T3, Wl 
C2. F3. 13, M6. N1.P4 
A5, C2. F3. 15. S8. W2 
C2. F3. 13, P4. Wl 



FORTH System Vendors (Alphabetical) 



The following vendors offer FORTH systems, applications, or con- 
sultation. FIG makes no judgement on any product, and takes no 
responsibility for the accuracy of this list. We encourage readers to 



keep us informed on availability of the products and services listed. 
Vendors may send additions and corrections to the Editor, and must 
include a copy of sales literature or advertising. 



FORTH Systems 

1 . AB Computers 
252 Bethlehem Pike 
Colmar, PA 18915 
215/822-7727 

2. Acropolis 

17453 Via Valencia 
San Lorenzo, CA 94580 
415/276-6050 

4. Applied Analytics Inc. 
8910 Brookridge Dr., #300 
Upper Marlboro, MD 20870 

5. Aristotehan Logicians 
2631 E. Pinchot Ave. 
Phoenix, AZ 85016 

7. Abstract Systems, etc. 
RFD Lower Prospect Hill 
Chester. MA 01011 

8. Armadillo Int'l Software 
P.O. Box 7661 
Austin, TX 78712 
512/459-7325 



1. Blue Sky Products 
729 E. Willow 
Signal Hill, CA 90806 



C 

1. CMOSOFT 
P.O. Box 44037 
Sylmar, CA 91342 

2. OOMSOL. Ltd. 
TVeway House 
Hanworth Lane 
Chertsey, Surrey 
England KT16 9LA 

3. Consumer Computers 
8907 La Mesa Blvd. 
U Mesa, CA 92041 
714/698-8088 

4. Creative Solutions, Inc. 
4801 Randolph Rd. 
Rockville, MD 20852 

5. Capstone Computing, Inc. 
5640 Southwyck Blvd., #2E 
Toledo, OH 43614 
419/866-5503 

E 

1. Emperical Research Group 
P.O. Box 1176 

Milton, WA 98354 
206/631^55 

2. Engineering Logic 
1252 13th Ave. 
Sacramento, CA 95822 



F 

1. Fantasia Systems, Inc. 
1059 The Alameda 
Belmont, CA 94002 
415/593-5700 

3. FORTH. Inc. 

2309 Pacific Coast Highwa: 
Hermosa Beach. CA 90254 
213/372-8493 

4. FORTHWare 

639 Crossridge Terrace 
Orinda. CA 94563 

5. Frank Hogg Laboratory 
130 Midtown Plaza 
Syracuse, NY 13210 
315/474-7856 

6. FSS 

P.O. Box 8403 
Austin, TX 78712 
512/477-2207 



1. IDPC Company 
P.O. Box 11594 
Philadelphia. PA 19116 
215/676-3235 

2. lUS (Cap'n Software) 
281 Arlington Ave. 
Berkeley, CA 94704 
415/525-9452 



3. Inner Access 

51 7K Marine View 
Belmont, CA 94002 
415/591-8295 

4. Insoft 

10175 S.W. Barbur Blvd. 
Suite #202B 
Portland. OR 97219 
503/244-4181 

5. Interactive Computer 
Systems. Inc. 

6403 Di Marco Rd. 
Itapa. FL 33614 



J 

1 . JPS Microsystems, Inc. 
361 Steelcase Rd., W. 
Markham. Ontario 
Canada L3R 3V8 
416/475-2383 



K 

1 . Kukulies. Christoph 
Ing. Buro Datentec 
Heinrichsallee 35 
Aachen. 5100 
West Germany 
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FORTH System Vendors 



L 

1 . Laboratory Microsystems 
4147 Beethoven St. 

Los Angeles, CA 90066 
213/306-7412 

2. Laboratory Software 
Systems, Inc. 

3634 Mandeville Canyon 
Los Angeles. CA 90049 
213/472-6995 

3. Lynx 

3301 Ocean Park, #301 
Santa Monica, CA 90405 
213/450-2466 

4. Lyons, George 
280 Henderson St. 
Jersey City, NJ 07302 
201/451-2905 

M 

1. M & B Design 
820 Sweetbay Dr. 
Sunnyvale, CA 94086 

2. MicroMotion 

12077 Wilshire Blvd., #506 
Los Angeles, CA 90025 
213/82M340 

3. Microsystems, Inc. 

2500 E. Foothill Blvd., #102 
Pasadena, CA 91107 
213/577-1477 

4. Micro Works, The 
P.O. Box 1110 

Del Mar, CA 92014 
714/942-2400 

5. Miller Microcomputer 
61 Lake Shore Rd. 
Natick, MA 01760 
617/653-6136 

6. Mountain View Press 
P.O. Box 4656 
Mountain View, CA 94040 
415/961-4103 

N 

1 . Nautilus Systems 
P.O. Box 1098 
Santa Cruz, CA 95061 
408/475-7461 

O 

1. OSI Software & Hardware 
3336 Avondale Court 
Windsor, Ontario 
Canada N9E 1X6 
519/969-2500 

2. Offete Enterprises 
1306 S**B" St. 

San Mateo, CA 94402 

3. On-Going Ideas 
RD #1, Box 810 
Starksboro, VT 05487 
802/453-4442 



1 . Perkel Software Systems 
1636 N. Sherman 
Springfield, MO 65803 



2. Pink Noise Studios 
P.O. Box 785 
Crockett. CA 94525 
415/787-1534 

3. Professional Mgmt. Services 
724 Arastradero Rd., #109 
Palo Alto, CA 94306 
408/252-2218 

4. Peopieware Systems Inc. 
5190 West 76th St. 
Minneapolis, MN 55435 
612/831-0872 

Q 

1 . Quality Software 

6660 Reseda Blvd.. #105 
Reseda, CA 91335 

2. Quest Research. Inc. 
P.O. Box 2553 
Huntsville, AL 35804 
800/558-8088 



2. Rockwell International 
Microelectronics Devices 
P.O. Box 3669 
Anaheim. CA 92803 
714/632-2862 



1. Saturn Software, Ltd. 
P.O. Box 397 

New Westminister, BC 
V3L 4Y7 Canada 

2. Shaw Labs, Ltd. 
P.O. Box 3471 
Hayward, CA 94540 
415/276-6050 

3. Sierra Computer Co. 
617 Mark NE 
Albuquerque, NM 87123 

4. Sirius Systems 

7528 Oak Ridge Highway 
Knoxville, TN 37921 
615/693-6583 

5. Software Farm, The 
P.O. Box 2304 
Reston, VA 22090 

6. Software Federation 
44 University Drive 
Arlington Hts., IL 60004 
312/259-1355 

7. Software Works, The 
1032 Elwell Ct., #210 
Palo Alto, CA 94303 
415/960-1800 

8. Supersoft Associates 
P.O. Box 1628 
Champaign, IL 61820 
217/359-2112 

9. Satellite Software Systems 
288 West Center 

Orem, UT 84057 
801/224-8554 

10. Spectrum Data Systems 
5667 Phelps Luck Dr. 
Columbia, MD 21045 
301/992-5635 



1 1 . Stearns, Hoyt Electronics 
4131 E. Cannon Dr. 
Phoenix, AZ 85028 
602/996-1717 

T 

1 . Tklbot Microsystems 
1927 Curtis Ave. 
Redondo Beach, CA 90278 

2. Technical Products Co. 
P.O. Box 12983 
Gainsville, FL 32604 
904/372-8439 

3. Timin Engineering Co. 
6044 Erlanger St. 

San Diego. CA 92122 
714/455-9008 

4. Transportable Software 
P.O. Box 1049 
Hightstown. NJ 08520 
609/448-4175 

V 

1 . Vzdpar International 
3801 E. 34th St. 
T\icson, AZ 85713 
800/528-7070 

W 

1 . Ward Systems Group 
8013 Meadowview Dr. 
Frederick, MD 21701 

2. Worldwide Software 
2555 Buena Vista Ave. 
Berkeley, CA 94708 
415/644-2850 

Z 

I. Zimmer, Tom 
292 Falcato Dr. 
Milpitas, CA 95035 ' 

Boards & Machines Only 

See System Vendor Chart 
for others 

Controlex Corp. 
16005 Sherman Way 
Van Nuys. CA 91406 
213/780-8877 

Datricon 

7911 NE33rd Dr., #200 
Portland. OR 97211 
503/284-8277 

Golden River Corp. 
7315 Reddfield Ct. 
Falls Church. CA 22043 

Application Packages Only 

See System Vendor Chart 
for others 

Curry Associates 
P.O. Box 11324 
Palo Alto, CA 94306 
415/322-1463 

InnoSys 

2150 Shattuck Ave. 
Berkeley, CA 94704 
415/843-8114 



Consultation & Inning Only 

See System Vendor Chart 
for others 

Boulton, Dave 
581 Oakridge Dr. 
Redwood City, CA 94062 

Brodie. Leo 
9720 Baden Ave. 
Chatsworth. CA 91311 
213/998-8302 

Eastgate Systems Inc. 
P.O. Box 1307 
Cambridge, MA 02238 

Girton, George 

1753 Franklin 

Santa Monica. CA 90404 

213/829-1074 

Go FORTH 

504 Lakemead Way 

Redwood City. CA 94062 

415/366-6124 

Harris, Kim R. 
Forthright Enterprises 
P.O. Box 50911 
Palo Alto, CA 94303 
415/858-0933 

Laxen, Henry H. 
1259 Cornell Ave. 
Berkeley. CA 94706 
415/525-8582 

Mcintosh. Norman 
2908 California Ave., #3 
San Francisco, CA 94115 
415/563-1246 

Metalogic Corp. 

4325 Miraleste Dr. 

Rancho Palos Verdes, CA 90274 

213/519-7013 

Petri. Martin B. 
15508 Lull St. 
Van Nuys, CA 91406 
213/908-0160 

Redding Co. 
P.O. Box 498 
Georgetown, CT 06829 
203/938-9381 

Schleisiek, Klaus 
Eppendorfer Landstr. 16 
D 2000 Hamburg 20 
West Germany 
(040)480 8154 

Schrenk. Dr. Walter 
Postfach 904 
7500 Karlstruhe-41 
West Germany 

Software Engineering 
317 W. 39th Terrace 
Kansas City, MO 64111 
816/531-5950 

Technology Management, Inc. 
1520 S. Lyon St. 
Santa Ana, CA 92705 
714/835-9512 



FORTH Dimensions 



35 



Volume IV, No. 6 



FORTH INTEREST GROUP 



MAIL ORDER 



□Membership in FORTH Interest Group and 

Volume V Of FORTH DIMENSIONS 
□Back Volumes of FORTH DIMENSIONS. Prk» per each- 

D Gil Dm Giv 

□ fig-FORTH Installation Manual, containing the language model 

of fig-FORTH, a complete glossary, memory map and installation instructions 
□Assembly Language Source Listings of fig-FORTH for specific CPU's 
and machines. The above manual is required for installation. 
Check appropriate box(e8). Price per each. 

□1802 ^6502 □SBOO □6809 □VAX QzSO 

□8080 □8086/8088 ^9900 □APPLE II QECLIPSE 

□pace GNOVA □PDP-11 □68000 QALPHA MICRO 

□'•Starting FORTH*' by Brodie. BEST book on FORTH. (Paperback) 

□ "Starting FORTH" by Brodie. (Hard Cover) 

□PROCEEDINGS 1980 FORML (FORTH Modification Lab) Conference 
□PROCEEDINGS 1981 FORML Conference, Both Volumes 

□Volume I, Language Structure 

□Volume II, Systems and Applications 
□PROCEEDINGS 1982 FORML Conference 
□PROCEEDINGS 1981 FORTH Uhiv. of Rochester Conference 
□proceedings 1982 FORTH Univ. of Rochester Conference 
□FORTH-79 Standard, a publication of the FORTH Standards Team 
□Kitt Peak Primer, by Stevens. An in-depth self-study primer. 
□byte Magazine Reprints of FORTH articles, 8/80 to 4/81 
□fig T-shirts: QSmall □Medium □Large □ X-Large 
□Poster, August 1980 BYTE cover, 16" x 22" 
□forth Programmer's Reference Card. If ordered separately, 

send a stamped, addressed envelope. 

Qor. Dobb's Journal, Two FORTH Isauea, 9/81 & 9/82 

TOTAL 



USA 
$15 

$15 
$15 

$15 



$18 
$22 
$25 
$40 
$25 
$25 
$25 
$25 
$25 
$15 
$25 
$ 5 
$10 
$ 3 



FOREIGN 
AIR 
$27 

$18 
$18 



$18 



FREE 



$ 7 
$_ 



NAME 

ORGANIZATION^ 

ADDRESS 2 

CITY 

VISA # " 



MAIL STOP/APT^ 
PHONE ( 



)_ 



STATE 



ZIP 



COUNTRY 



Expiration Date_ 



_MASTERCARD # 

(Minimum of $15JX) on charge cards) 



$22 
$27 
$35 
$55 
$35 
$35 
$35 
$35 
$35 
$18 
$35 
$10 
$12 
$ 5 



$10 



Make check or money order in US Funds on US bank, payable to: FIG. All prices include 
postage. No purchaw orders without check* California residents add sales tax. 1/83 

ORDER PHONE NUKeCRt (415) 962-8653 

FORTH INTEREST GROUP »P0 BOX 1105* SAN CARLOS, OA 94070 



FORTH INTEREST GROUP 

P.O. Box 1105 

San Carlos, CA 94070 



PLEASE ADVISE CORRESPONDENT 
OF YOUR CURRENT MAiLSTATION 



BULK RATE 
U.S. POSTAGE 
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Mt. View. CA 



